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ABSTRACT 

Because of the need for having efficient scheduling algorithms in large scale real- 
time systems, software engineers put a lot of effort on developing scheduling algorithms 
with high performance. But neither algorithm developed upto now is perfect for all cases. 
At this stage, instead of having one scheduling algorithm in the system, more than one 
different algorithms which will try to find a feasible solution to the scheduling problem 
according to the initial properties of the tasks would be very useful to reach a high 
performance scheduling for the system. 

This report represents the effort to provide static schedulers for the Embedded Real- 
Time Systems with single processor using the Ada programming language. The 
independent nonpreemptable algorithms used in these static schedulers are run according 
to the timing constraints and precedence relationships of the critical operators extracted 
from a high level source program. The final schedule guarantees that timing constraints 
for the critical jobs are met. The primary goal of this report is to support the Computer 
Aided Rapid Prototyping for Embedded Real-Time Systems so that we will determine 
whether the system, as designed, will meet the required timing specifications. Secondary 


goal is to demonstrate the significance of Ada as the implementation language. 
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I. INTRODUCTION 


A. BACKGROUND 

Large scale Real-Time Systems are important to both civilian and military 
operations. They are used in the control of moder systems, in air traffic control, in 
tele-communication systems, and in defense. In these systems, many tasks have explicit 
deadlines. This means that the task scheduling is an important component of the 
systems. In Hard Real-Time Systems, tasks have to be performed not only correctly, 
but also in a timely fashion. Otherwise, there might be some severe consequences.[Ref. 
Ree p.3} 

The scheduling algorithm in a Hard Real-Time System can be either static or 
dynamic, and is used to determine whether a feasible execution schedule for a set of 
tasks exists so that the tasks’ deadlines and resource requirements are satisfied, and 
generate a schedule if one exists [Ref. 10]. A static approach calculates schedules for 
tasks off-line and it requires the complete prior knowledge of tasks’ characteristics. A 
dynamic approach determines schedules for tasks on the fly and allows tasks to be 
dynamically invoked. Although static approaches have low run-time cost, they are 
inflexible and can not adapt to a changing environment or to an environment whose 
behavior is not completely predictable. When new tasks are added to a static system, 
the schedule for the entire system must be recalculated, which is expensive in terms 
of tume and money. In contrast, dynamic approaches involve higher run-time costs, but, 


because of the way they are designed, they are flexible and can easily adapt to changes 


in the environment.[Ref. 12: p. 3] In Hard Real-Time Systems, tasks are also 
distinguished as preemptable and nonpreemptable. A task is preemptable if its execution 
can be interrupted by other tasks and resumed afterwards. A task is nonpreemptable if 
it must run to completion once it starts. 

To meet timing constraints, we must schedule software tasks according to well 
understood algorithms, so that the resultant timing behavior of the system is 
understandable, maintainable and predictable. The use of well understood Real-Time 
scheduling algorithms will also set the stage for eliminating many of the time 
dependant problems encountered in Real-Time Systems today, thereby avoiding some 
of the most difficult problems to debug, with a resultant increase in system reliability 


and with reduced system integration time and cost [Ref. 11]. 


B. THE STATIC SCHEDULER 

If there exists a possible solution, the static scheduler builds a static schedule for 
the execution of a prototype, which 1s a sequence of tasks being developed from the 
Prototype System Description Language(PSDL) input specification for the prototype that 
obey some predefined properties, in our case these are timing constraints and 
precedence relationships. This schedule gives the precise execution order and timing of 
operators with hard real-time constraints in such a manner that all timing constraints 
are guaranteed to be met [Ref. 14]. 

Tasks are divided into two classes: time-critical and non time-critical. A task is 


time-critical if it has at least one timing constraint associated with it, otherwise it is 


non time-critical. Time critical tasks need more work to get a feasible schedule, 
therefore they are handled by static scheduler before running a prototype. 

And an auxiliary scheduler, called dynamic scheduler, executes the time-critical 
task sequence generated by static scheduler and tries to allocate the non time-critical 
tasks obeying the precedence relationship for the free time slots of CPU. The 
importance of the static scheduler is that it obtains a sequence for the critical tasks 


off-line, thus avoiding execution time during run time. 


C. OBJECTIVES 
This thesis describes the application of the schedulers that use different scheduling 
algorithms to find feasible schedules for the real-time prototypes satisfying the critical 


timing constraints and precedence relationships among operators in the prototype. 


D. ORGANIZATION 

Chapter Hi describes the previous research done in general. It includes a 
discussion of Computer Aided Prototype System(CAPS) and Prototype System 
Description language(PSDL). This chapter also presents a survey of The Static 
Scheduling Algorithms for single processor environment. Chapter III outlines the 
analysis and programming decisions that were made during the unplementation. The 
deviations from the earliest implementation are described in Chapter IV. Conclusions 


and recommendations for the future work will be presented in Chapter V. 


Il. PREVIOUS RESEARCH AND SURVEY OF 


STATIC SCHEDULING ALGORITHMS 


A. PREVIOUS RESEARCH 
The research previously done in static scheduler is associated with the Computer 
Aided Prototyping System(CAPS) and the Prototype System Description Language 
(PSDL). CAPS is a tool that is being designed to aid software designers in the rapid 
prototyping of large software systems. The original design of the Static Scheduler was 
described in [Ref. 19]. This design was further developed as The Conceptual Design 
for the Pioneer Prototype of the Static Scheduler as a part of the CAPS execution 
support system.[Ref.14] Then we see a pioneering effort to develop a static scheduler 
as a part of the CAPS execution support system, using the Ada®’ programming 
language.[Ref. 13] Thereafter a static scheduler was partly implemented in the Ada® 
programming language. [Ref. 6] 
1. CAPS | 
The CAPS is a tool that’s being designed for development of Hard Real- 
Time or Embedded Systems to speed up the design and implementation. CAPS process 
is an iterative approach to designing complex software systems. CAPS is the major 


system that requires more than one static scheduler. 


' Ada® is a registered trademark of the United States Government, Ada Joint 
Program Office 


The CAPS architecture contains the following elements: 

¢ User Interface 

¢ Prototyping System Description Language 

¢ Rewrite Subsystem 

¢ Software Design Management System 

¢ Prototype Data Base and Software Base 

¢ Execution Support System(ESS) 

Detailed infonnation about CAPS is contained in [Ref.31], [Ref. 16], [Ref. 13], 

and [Ref. 6] Figure 1 below graphically describes the major software tools of CAPS, 


and the Figure 2 on page 6 describes the architecture of CAPS. 
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Figure I Major Software Tools of CAPS 


CAPS makes use of specifications and reusable software components to 


automate the rapid prototyping methodology [Ref. 16: p. 66], which offers promising 


User Interface 
Prototype Systen 
Description Language 

Rewrite System 





software Design Execution Support 
Managment 5Systen System 


PIOLGLY pe 


Database 


software Base 





Figure 2 CAPS Architecture 

advantages in unproved software engineering productivity, increased reliability of the 
finished product, more realistic cost estumates based on identified system complexity, 
and a reduction in the total system design to smplementation timelog [Ref. 15: pp. 11- 
WP 8 

The Execution Support System is necessary for the execution and testing of 
the prototype. The ESS contains a Static Scheduler, a Translator, and a Dynamic 
Scheduler. [Ref. 32] The interfaces between these components are shown in figure 3 
on page 7. The Translator translates the statements in the PSDL prototype into 


statements in an underlying programming language. The underlying programming 
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Figure 3 The Execution Support System 


language for the CAPS is Ada®. The development of the translator is presented in 
Moffitt [Ref. 18]. 
Static Scheduler is a part of the ESS and attempts to find a static schedule 


for the operators in PSDL prototype with real-tune constraints. An unplementation 


guide for the Static Scheduler can be found in [Ref. 13]. The operators that do not 
have real time constraints are controlled by Dynamic Scheduler during run time. 

The Dynamic Scheduler is a run time executive which controls the execution 
of the prototype, it schedules operators which do not have real time constraints, and 
provides facilities for debugging and gathering statistics. The first design for the 
Dynamic Scheduler is contained in [Ref. 28] and the latest changes can be found in 
Palazzo [Ref. 32]. 

The translator translates the PSDL code into Ada source code, the Static 
Scheduler extracts operator timing information from the PSDL source code and creates 
a static schedule in Ada source code. 

The Static Scheduler provides the Dynamic Scheduler with the non time- 
critical operators. Dynamic Scheduler uses the “non_crits” text file to create a dynamic 
schedule in a Ada source code. And, the Ada source code from the Translater, the 
Static Scheduler, and the Dynamic Scheduler are compiled, linked and an executable 


Prototype is generated.[Ref.32] 


2. PSDL 
PSDL is a language designed for clarifying the requirements of complex 
real-time systems and for determining properties of proposed designs for such systems 
by means of prototype execution. The language was designed to sumplify the 
description of such systems and to support a prototyping method that relies on a novel 
decomposition criterion. PSDL 1s also the basis for the CAPS that speeds up the 


prototyping process by exploiting reusable software components and providing execution 


support for high level constructs appropriate for describing large real-time systems in 


terms of an appropriate set of abstractions. [Ref. 17: p. 7] 


B. SURVEY OF STATIC SCHEDULING ALGORITHMS 
This section includes a survey of The Static Scheduling Algorithms for Hard 
Real-Time Systems, and presents an overview of previous work and discusses their 


characteristics. 


1. THE FIXED PRIORITIES SCHEDULING ALGORITHM 

In many conventional hard real-time systems, tasks are assigned with fixed 
priorities to reflect critical deadlines, and tasks are executed in an order determined by 
the priorities. During the testing period, the priorities are (usually manually) adjusted 
until the system implementer is convinced that the system works. Such approach can 
only work for relatively simple systems, because it is hard to determine a good priority 
assignment for a system with a large number of tasks by such a test-and-adjust method. 
Fixed priorities is a type of static scheduling. Once the priorities are fixed in a system, 


it is very hard and expensive to modify the priority assignment.[Ref. 27]. 


2. THE HARMONIC BLOCK WITH PRECEDENCE CONSTRAINTS 
SCHEDULING ALGORITHM 

This scheduling algorithm is being used by the CAPS, a general description 

of the implementation 1s furnished above, and a Data Flow Diagram(DFD) is given in 

Figure 4 on page 10. After the first design efforts of this algorithm [Ref. 13] [Ref. 14] 


even though the data flow diagram didn’t change since the first Architectural Design, 


some structural changes were made to the algorithm. Description below includes these 
final structural changes [Ref. 6]. 

The first component of the DFD, the "PSDL_Reader", reads and processes 
the PSDL prototype program. The output of this step is a file containing operators 


identifiers, timing information and link statements. 


TOPOLOGICAL 
SORTER 


PRECEDENCE 


LIST 


PSDL 
SOURCE 


282 PSDL_ FILE OPERATORS_ 


READER PROCESSOR SCHEDULER 


ATOMIC HARMONIC 
OPERATORS BLOCK 


LIST LENGTH 


STATIC 
HARNONIC_ SCHEDULE 


BLOCK_ 


NON-CRITS 
BUILDER 


FILE 





Figure 4 1" Level DFD 


The second component is the "File_Processor’, the file generated in the first 
step is analyzed and the data is divided into three parts based on its destination or if 


additional processing required. The "Non_Crits" file contains the names of all 
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noncritical operators. The Atomic Operators list contains all critical operators identifiers 
and their associated timing constraints. The Links List contains the link statements 
which syntactically describe the PSDL implementation graphs. During this step some 
basic validity checks on the timing constraints are performed. If any of the checks fails, 
an exception is raised and an appropriate error message is submitted to the user. 

The “Topological_Sorter" performs a topological sort of the link statements 
contained in the Links List. The requirements for a topological sort implies that the 
statements being sorted have natural continuity and connectedness. These properties 
define the execution precedence of the time critical operators regardless of whethet the 
graphs are linear or acyclic. In an acyclic digraph, like on Figure 5, the decision to 
choose the "link a” first and the "link b" last is arbitrary in (b). The output from either 
sort 1s a precedence list of critical operators stipulating the exact order in which they 
must be executed. The linear sort will produce one precedence list while the acyclic 
sort can produce two or more precedence lists. 

The second output of the “File_Processor", the Atomic Operators list, is the 
input to the “Harmonic_Block_Builder". An harmonic block is defined as a set of 
periodic operators where the periods of all its component operators are exact multiples 
of a calculated base period. Each harmonic block 1s treated as an independent 
scheduling problem. When multiprocessors are utilized, then one processor for harmonic 
block is necessary. The implementation being developed [Ref. 6] utilizes a single 
processor, therefore the final static schedule assumes that only one harmonic block is 
created. All the operators must be periodic, then all the sporadic operators are 


converted to their periodic equivalents. The periodicity helps to insure that execution 
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Figure 5 Linear and Acyclic Graphs 


is completed between the beginning of a period and its deadline, which defaults to the 
end of the period. 
In order to convert a sporadic operator into its equivalent periodic operator, 
the following parameters of the sporadic operator must be known : 
¢ Maximum Execution Time (MET). 
¢ Minimum Calling Period (MCP). 


¢ Maximum Response Time (MRT). 


Ay 





Some rules must be obeyed by the parameters described above to obtain an 
equivalent periodic operator, the rules are the following : 
¢ MET < MRT. This rules insures that ( MRT - MET ) produces a positive value. 


¢ MCP < MRT. This condition is necessary, but not sufficient, to guarantee that 
an operator can fire at least once before a response is expected. 


¢ MET < MCP. This restriction insures that the period calculated will conform to 
a single processor environment. 


The periodic equivalent is then calculated as P = min (MCP, MRT - MET), 
the value of P must be greater than MET, in order for the operator to complete 
execution within the calculated period. As a last resort, setting P equal to MCP, is a 
worst case scheduling constraint. 

After all the operators are in periodic form, they are sorted in ascending 
order based on the period values. A second preliminary step is to calculate the base 
block and its period for the sorted sequence of operators. The base period is defined 
as the greatest common divisor (GCD) of all the operators in one sequence that will 
be scheduled together. 

The last preliminary step is to evaluate the length of tume for the harmonic 
block. The actual harmonic block length is the least common multiple (LCM) of all 
the operators’ period contained in the block. The harmonic block and its length are an 
integral part of the static schedule. This block represents an empty timeframe within 
which the operators will be allocated tume slots for execution. 

The outputs of the “Topological_Sorter” and the “Harmonic_Block_Builder" 
are used by the "Operators_Scheduler" in order to create a static schedule for the time 


critical operators. The resulting static schedule is a linear table giving the exact 


He 


execution start time for each critical operator and the reserved MET within which each 
operator completes its execution. 

This linear table is evaluated in two iterative steps. In the first step an 
execution time interval is allocated for each operator based on the equation 
INTERVAL = ( current time, current trme + MET ). Next the process creates a firing 
interval for each operator during which the second iterative step must schedule the 
operator. The firing interval stipulates the lower and upper bound for the next possible 
start time for an operator based on its period. The second step, initially, uses the lower 
bound of each firing interval, when it schedules operators during subsequent iterations. 
The sequence of operators is allocated time slots according to the earliest lower bound 
first. Before an operator is allocated a time slot, this step verifies that : 

¢ (current time + MET ) = < harmonic block length. 

This condition 1s applicable to every operator scheduled in that harmonic 
block. This step also calculates new firing intervals for each operator scheduled. Once 
all the operators are correctly scheduled within an entire harmonic block, a static 
schedule is available. All subsequent harmonic blocks are copies of the first. 

A theoretical development and implementation guideline of this algorithm 
is available in the [Ref. 14] and [Ref. 13]. 

Part of the actual implementation of this algorithm and the analysis of its 


performance is described in the [Ref. 6]. 
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3. THE EARLIEST START SCHEDULING ALGORITHM 

This algorithm considers the scheduling of n tasks on a single processor. 
Each task becomes available for processing at time a,, must be completed by time b,, 
and requires d, time units for processing. 

There are two versions of the criteria : one allows the job splitting 
(preemptable tasks), under this assumption it is only required to complete d*, (where 
d',+d’,+...+d"=d,, and n is the total number of splits of the task i) units of processing 
between a, and b,; and the other version assumes that job splitting is not allowed 
(nonpreemptable tasks). 

a. PREEMPTABLE VERSION 

Consider the rectangular matrix that has a column for each job and a 
line for each unit of time available. There are max,(b,) lines and n columns. In this 
matrix it is necessary to distinguish between admissible and inadmissible cells. For job 
i the cell (ij) is admissible, if a<j=<b,, and inadmissible otherwise. The admissible 
cells correspond to the time where the task may be performed. The Figure 6 below 
shows an example. 

Associated with each row there is an availability of one unit of time, 
and with each column a requirement of d;. If the task 1 is being processed at time j, 
a | is placed in the admissible cell. This problem is equivalent to that of finding a set 
of 1’s placed in admissible cells such that column sums satisfy the requirements d, and 
each line contains at most one single 1.[Ref. 20: pp. 511-514] 

This type of algorithm does not take into account any precedence 


constraints. In order to include the precedence constraints in this algorithm, it is 
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Figure 6 Example of Scheduling with Earliest Start Time (preemptable) 


necessary to do some modifications. The modification can utilize some concept like the 
harmonic block discussed in the former algorithm and also include the constraints that 
a job j, that is preceded by 1 and k, is admissible only after a<<j=<b, and 1 and k are 
already scheduled. The [Ref. 20: pp. 518-519] presents an implementation in 
FORTRAN to solve the case without precedence constraints. This type of algorithm 
is not taken into account for precedence constraints, and is not applicable to our case 


because it assumes that all the tasks are preemptable. 


16 











This algorithm is bounded by O(n) in time, and as most heuristic algorithms, does 
not guarantee that the solution (assuming that at least one is available for the problem) 


is found. 


b. NONPREEMPTABLE VERSION 

In this approach, also, the precedence constraints are not included in 
the analysis, but they may be easily taken into account during the construction of all 
the feasible sequences. 

The main idea is to enumerate implicitly all the possible orderings by 
a branch, exclude and bound algorithm. During the branch all infeasible sequences. due 
to violation of the due date are discarded (here it is possible to include the precedence 
constraints). 

All the possible sequences are enumerated by a tree type construction. 
From the initial node we branch to n new nodes on the first level of descendent nodes. 
Each of these nodes represents the assignment of task i, 1 =< 1 =< n, to be the first 
in the sequence. Associated with such node there is the completion time t', of the task 
j in the position i, ie., t’ = a, + d,. Next we branch from each node on the first level 
to (n-1) nodes on the second level. Each of these nodes represents the assignment of 
each of the (n-1) unassigned tasks to be second on the sequence. As before, we 
associate the corresponding node the completion time of the task t? = max (t", a) + 
d, We continue in a similar fashion. The initial node is a dummy node, in the 
unconstrained case all the node must be present tn the level 1 (level 0 is assumed to 
be the dummy root of the complete tree), in case with precedence constraints in the 


level 1 we allocate only the tasks that have only external input or no predecessor. 
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Consider the (n-k+1) new nodes generated at the level k of the tree 
construction, if the finish time t® associated with at least one of these nodes exceeds 
its due date then the subtree rooted at each one of the nodes that are unfeasible may 
be excluded from further consideration. 

The bounding condition applies only when there are no precedence 
constraints and is intended to find an optimal (minimizing the length of the block) 


ordering of the sequence. Figure 7 illustrates the application of this criteria. 





Figure 7 Example of Scheduling with Earliest Start Time (Nonpreemptible) 


In the case with precedence constraints this algorithm does not 


guarantee an optimal solution, another disadvantage is the tume complexity which tends 
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to factorial in the number of tasks. A more detailed explanation, as well, a step by step 
definition of the algorithm, may be found in [Ref. 20 : p. 514-519]. 

This algorithm is implemented in this thesis including the precedence 
constraints. It utilizes the concepts: length of the harmonic building block and the firing 
interval for each task which are described before in this chapter. The implementation 
details are explained in Chapter II of this thesis. 

4. THE EARLIEST DEADLINE SCHEDULING ALGORITHM 
This algorithm also considers the scheduling of n tasks on a single processor. 
It is a varient of the Earliest Start Scheduling Algorithm, only the earliest deadline 
should be considered as the criteria instead of the earliest start time. The 


unplementation details are explained step by step in the Chapter LI of this thesis. 


5. MINIMIZE MAXIMUM TARDINESS WITH EARLY START TIMES 
SCHEDULING ALGORITHM 
This algorithm considers a sequencing problem consisting of n tasks and 
a single processor. Task 1 is described by the following parameters : 


¢ the ready time (a,), the earliest point in time at which processing may begin on 
1 (1.e., an earliest start time). 


¢ the processing time (d,), the interval over which task 1 will occupy the processor. 
¢ the due date (b,), the completion deadline for task 1. 
The three characteristics a;, d,, and b, are known in advance and no preemption 
is allowed in the processing of the tasks. 
As a result of scheduling, task 1 will be completed at time C, and will be 


tardy if C, > d,. The tardiness of task(T;) is defined by T, = max {0, C-d,}. The 


ro 


scheduling objective is to minimize the maximum task tardiness, which is simply 
Tax = max, { T; }. 

For the static version of the n tasks single processor problem without 
precedence constraints(all a, s are equal), T,,,, 1s minimized by the sequence b,) =< 
ba, =< ... =< b,,, that is, by processing the tasks in nondecreasing order of their 
deadlines.[Ref. 21: p. 172] 

In the dynamic version of the problem, the statement above can also be 
applied if the tasks can be processed in a preemptable fashion, in this case sequencing 
decisions must be considered both at task completion and at task ready time. Then we 


have the following : 


« At each task completion, the task with minunum b, among available tasks is 
selected to begin processing. 


- At each ready time, a, the deadline of the newly available task is compared to 
the deadline of the task being processed. If b, 1s lower, task 1 preempts the task 
being processed otherwise the task i 1s simply added to the list of available tasks. 

The solution to the preemptive case 1s not difficult to construct because the 
mechanism is a dispatching procedure. Since all nonpreemptive schedules are contained 
in the set of all preemptive schedules, the optimal value of T,,,, in the preemptive case 
is at least a lower bound on the optunal T,,., for the nonpreemptive schedules. This 
principle is the basis for the algorithm. 

In the nonpreemptive problem, there is a sequence corresponding to each 
permutation of the integers 1, 2, ....n. Thus there are at most n! sequences, but several 


of these sequences do not need to be considered. The number of feasible sequences 


depends on the data in a given problem, but will be usually less than n!. 
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A branch and bound algorithm will be used to systematically enumerate all 
the feasible permutations. 

The branching tree is essentially a tree of partial sequences. Each node in 
the tree at level k corresponds to a partial permutation containing k tasks. Associated 
with each node is a lower bound on the value of the maximum tardiness which could 
be achieved in any completion of the corresponding partial sequence (obtained using 
the preemptive adaptation). The calculation of lower bound allows the algorithm to 
enumerate many sequences only implicitly. If a complete sequence has been found with 
a value T”™ less than or equal to the bound associated with some partial sequence, then 
it is not necessary to complete the partial sequence in the search for optimum solution. 

The branch and bound algorithm maintains a list of nodes ranked in 
nondecreasing order of their lower bounds. At each stage the node at the top of the list 
is removed and replaced on the list by several nodes corresponding to augmented 
partial sequences. These are formed by appending one unscheduled task to the removed 
partial sequence. The algorithm terminates when the node at the top of the list 
cofresponds to a complete sequence. At this point, the complete sequence attains a 
value of T,,,, which is less than or equal to the lower bound associated with every 
partial sequence remaining on the list, and the complete sequence is therefore optimal. 

Before the tree search begins, the algorithm uses a heuristic initial phase to 
obtain a feasible solution to the problem. This initial feasible solution allows the tree 
search to begin with a complete schedule already on hand, and allows several partial 
schedules to be discarded in the course of the tree search, simply because their bound 


exceed the value of the initial solution. 
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There are four heuristics which can be used: 
¢ Ready time : sequence the tasks in nondecreasing order of their ready time, a, 
¢ Deadline : sequence the tasks in nondecreasing order of their deadlines, b, 
¢ Midpoint : sequence the tasks in nondecreasing order of the midpoints of their 
ready times and deadlines (a, + b,)/2. hence use the nondecreasing order of a, + 


b,. 


¢ PIO : sequence the tasks in the order of their first appearance in the optimal 
preemptive schedule, which is constructed by the dynamic version. 


The [Ref. 21: pp. 171-176] contains a complete and detailed description of 
the algorithm as also an analysis of the performance of the algorithm’. Considering 
each heuristic, the global time complexity of this algorithm is O(n’). As can be 
visualized, this algorithm does not take into account the possible precedence constraints 
among the tasks, these precedence constraints must be taken into account during the 
evaluation of the branch and bound solution of the tree search. The inclusion of the 
precedence constraints in the evaluation of the heuristics must also be considered. The 
algorithm can be extended to handle the case where tasks can be started only after 
some instance of time in the future (this happens when some of the tasks are periodic), 


the modification necessary is in the definition of task’s scheduled start time. 


“When all tasks are available simultaneously the [Ref. 22: pp.187-199] presents 
some useful algorithms and an experimental comparison among them, also in [Ref. 23: 
pp.177-185] we may find some simple and quick algorithms for the same set of 
conditions. 
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6. THE RATE-MONOTONIC PRIORITY ASSIGNMENT SCHEDULING 
ALGORITHM 
This algorithm assumes the following premises : 


¢ The requests for all the tasks for which hard deadlines exist are periodic, with 
period (p;). 


¢ Deadlines consist of run-ability constraints, that is each task must be completed 
before the next request for it occurs. 


¢ The tasks are independent in that requests for a certain task do not depend on 
the initiation or the completion of requests for other tasks. 


¢ Run-time for each task is constant (d,) and does not vary with time. Run-time 
here refers to the tume which is taken by a processor to execute the task without 
interruption. 

An important concept in determining the rule is that of the critical instant 
for a task. The deadline of a request for a task 1s defined to be the time of the next 
request for the same task. The response time of a request for a certain task is defined 
to be the tume span between the request and the end of the response to that request. 
A critical instant of a task is defined to be an instant at which a request for that task 
will have the largest response time. A critical tume zone for a task is the time interval 
between a critical instant and the end of the response to the corresponding request to 
the task. 

Based on the definitions above it is possible to infer that a critical instant 
for any task occurs whenever the task is requested simultaneously with requests for all 
higher priority tasks. One of the values of this result is that a simple direct calculation 
can determine whether or not a given priority assignment will yield a feasible 


scheduling algorithm. Specifically, if the requests for all tasks at their critical instants 
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are fulfilled before their respective deadlines, then the scheduling algorithm is feasible. 
As an example consider two tasks T, and T, with p, = 2, p, = 5, and d, = 1, d, = 1. 
If we let T, be the higher priority task then from Figure 8 (a) on page 25 we see that 
such priority assignment is feasible. Moreover, the value of T, can be increased at most 
to 2 but not further as ulustrated in Figure 8 (b). On the other | if we let T, be 
the higher priority task, then neither of the values of d, and d, can be increased beyond 


1 as illustrated in Figure 8 (c). 


CRITICAL TIHE ZONE 





Figure 8 Schedule for Two Tasks 


The analysis of the example above suggests a priority assignment. Let p, 


and p, be the request periods of the tasks, with p, < p,. If we let T, be the higher 
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priority task then, according to the definition of critical instant, the following inequality 
must be hold I_ p,/p, _! d, + d, =< p,’. 

If we let T, be the higher priority task, then, the following inequality must 
be satisfied d, + d, =< p,. In other words, whenever the p, < p, and d,, d, are such 
that the task schedule is feasible with T, at higher priority than T,, it is also feasible 
with T, at higher priority than T,, but the opposite is not true. Thus we should assign 
a higher priority to T, and lower priority to T,. Hence, more generally, it seems that 
a reasonable rule of priority assignment is to assign priorities to tasks according to 
request rates, independent of thew run-times. Specifically, tasks with higher request 
rates will have higher priorities. Such an assignment of priorities is known as the Rate- 
Monotonic Priority Assignment. Such priority assignment is optimum in the sense that 
no other fixed priority assignment rule can schedule a task set which cannot be 
scheduled by the rate-monotonic priority assignment. 

A formal development and analysis of this algorithm, as well the theoretical 
development of maximum achievable processor utilization of this type of algorithm is 
available in Liv (Ref. 25: pp. 46-61]. 

Some algorithms for scheduling periodic tasks to minimize average error 
utilizes the rate-monotonic priority assignment algorithm in order to solve the 
scheduling of the mandatory part of all the tasks, a complete description of these 


algorithms may be found in [Ref. 26: pp. 142-150]. 


*This condition is necessary but not sufficient to guarantee the feasibility of the 
priority assignment. The symbol |_ x _! denotes the largest integer smaller than or 
equal to x. 
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C. SUMMARY 

This survey presented some of the previous single processor static scheduling 
algorithms for hard real-time systems. Many of the algorithms discussed do not address 
the problem of how to schedule tasks that have precedence constraints. When it was 
necessary to obey an earliest ready time, usually an algorithm based in a tree branch 
and bound was used. The concept of a cost function to evaluate the schedule was 
shown in the minimize maximum tardiness with early start times scheduling algorithm. 
When precedence constraints were considered in the algorithms, the solution adopted 
was to use some kind of graphical representation (directed graphs), and the notion of 
a base timeframe was used (harmonic block). None of the algorithms presented gives 
an optimal solution to the problem of scheduling hard real-time system with precedence 
constraints. A general survey of Static Scheduling Algorithms can be found in 
Cervantes [Ref. 33]. 

The approach that will be followed in this thesis is to develop the ideas exposed 
in the harmonic block with precedence constraints scheduling algorithm (in order to 
define a timeframe), and implement the three of the algorithms presented in this 


chapter. 
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OI. IMPLEMENTATION OF STATIC SCHEDULERS 


When we looked at the history in developing the mmplementation of the Static 
Schedulers we see some variations in basic data structures used. The first guidelines 
about the Static Schedulers’ current implementation were outlined in O’Hem [Ref. 14]. 
O’Hem introduced the "Graph Type Model" developed by Mok and Sutanthavibul [Ref. 
28] as a basic unit. Johnson [Ref. 13] wrote the first pseudo code with some deviations 
from O’Hem. Then Marlowe [Ref. 6] did a part of the first unplementation of the basic 
design. In her implementation, the tree structure was used as a basic unit. In this 
chapter, the implementation of the basic design which is declared as "The Harmonic 
Block with Precedence Constraints Scheduling Algorithm" has been completed with 
some deviations from Marlowe’s [Ref. 6]. Besides, two other algorithms, The Earliest 
Start Scheduling Algorithm and The Earliest Deadline Scheduling Algorithm are also 
implemented. In the unplementation of the Static Scheduling algorithms in this thesis, 
Ada® Language has been used as a basic language. The Appendix D of this thesis has 
the dependency information of the programs implemented, and Appendix E has the Ada 


source code of all the programs and data structures utilized. 


A. ASSUMPTIONS 
First, this design assumes that the PSDL Prototype is syntactically correct. This 
implies that each line begins with a PSDL keyword or reserved word. Second, the 


designer structured the PSDL prototype program using a top-down design. This implies 
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that the program begins with the highest level and then decomposes all composite 
operators, with the last(or lowest) level being the Ada® implementation modules. The 
implementation design in this thesis addresses a single processor environment only. 
All operators are nonpreemptable, and except non-time critical operators, all critical 
operators should have a Maximum Execution time(MET). If the operators are sporadic, 
they have an MET, Maximum Response Time(MRT) and a Minimum Calling 
Period(MCP). It is also assumed that all tuming constraints are non-negative integer 
values. The system may include state machines, and external inputs and outputs. It can 
handle the acyclic digraphs as linear digraphs. The data coming in from any Extemal 
input is assumed ready at execution time. The implemented algorithms use the 
precedence relationships between the operators. The Static Schedulers implemented here 
only accept the critical timing information extracted from the output file of 
"PSDL_Reader". Normally this Text File has the timing and link information of the 


atomic operators only. 


B. DATA STRUCTURES UTILIZED 
The major data structure used in the current implementation of static schedulers 
utilizes Graph Type Model. This model is defined in [Ref. 28] and explained in [Ref. 
14]. For this model, a Graph Type is created by using a generic type Graph Package. 
Five data type abstractions are used in current implementations. They are as follows: 
¢ OPERATOR 
¢ LINK_DATA 


¢ THE GRAPH 
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¢ SCHEDULE_INPUTS 
¢ OP_INFO 
OPERATOR contains all the critical timing information of each operator extracted 
from the "atomic_info" file. LINK DATA contains the link information among the 
operators and is utilized in THE_GRAPH. THE_GRAPH is the basic unit of the static 
schedulers in this thesis. SCHEDULE_INPUTS contains the scheduling mformation of 
all operators and is used to create the final output. 


Data types and their corresponding data structures are as follows : 


Abstract Data Types Data Structures 
OPERATOR Linked List 
LINK_DATA Linked List 
THE_GRAPH Graph 
SCHEDULE_INPUTS Linked List 
OP_INFO Linked List 


OPERATOR, SCHEDULE_INPUTS, and OP_INFO, as global data types, are 
encapsulated in an Ada® package called FILES which allows the other packages to use 
them directly. The LINK_DATA and THE_GRAPH are utilized in an Ada® generic 
package called GRAPHS which is used to create the Graph Structure for the Static 
Scheduler in FILES. So the complete structure is created in package FILES. Files were 
only used for the storage of information that would be used outside of the Static 


Scheduler by the Execution Support System. 
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1. LINKED LISTS 

A single operator is implemented with type OPERATOR as a record with 
six fields as originally designed [Ref. 6]. These fields are shown in Table 1. Although 
it is not necessary to fill all the fields in the record for all the operators, these fields 
are required as a whole considering the different type of opeintSisettl periodic and 
sporadic). Section E of this chapter explains the required fields in details. It is the 
basic unit to store the atomic operator information within a Linked List in Graph 
Structure. It is also utilized to construct a precedence list in the implementation of the 
first algorithm. 


Table 1 Record Fields for OPERATOR 


FIELDS CONTENTS 


THE OPE Ail Oineet 2 The name of the operator 


THESE Maximum execution time for the operator 


MOsdd dele maximum response time for the operator 

ee Ce Minimum calling period for the operator 

ir PEERED the operator's period 

THE THN the time within which the operator must finish 





A single instance of the type LINK_DATA was unplemented as a record 
with four fields. These four fields are shown in Table 2. This is the basic unit of the 
link information, which 1s implemented as a Linked List in the graph. The link 
information of the graph is available in the input text file and the Linked List is 


constructed. A defined order is not required for the Linked List which stores the link 
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information in Graph. Figure 9 shows the relationship between the Graphical and Data 
Structure representation in a link statement. 

The third abstract data type used in the Static Scheduler is 
SCHEDULE INPUTS. It is a record which consists of five fields. These fields are 
shown in TABLE 3. It has the final scheduling information about each operator and 
it is utilized to create the static schedule output. 


Table 2 Record Fields for LINK_DATA 


FIELDS CONTENTS 


THE DATA STREAM The name of the link 






ime FIRST OP ID Stay UO une len 





fee LINK MET Maximum execution time for data transfer 






mae SECOND OP_ID ice Ol we aL nK 


bo eaee ceem Cds to SCUEDULEAINFUTS. 





FIELDS CONTENTS 


ee OPERATOR The name of the operator 

HE START Seti Lie tor tie execu talon 

oie LOP otLop time for the execution 

at LOWER Lower bound for the firing interval 


He UPPER Upper bound for the firing interval 





OP_INFO is the last abstract data type which is used in the "Earliest Start 
Scheduling Algorithm" and “Earliest Deadline Scheduling Algorithm". The fields are 


shown in Table 4. Detailed Linked List representation will be given in Section F. 


31 


The Linked Lists used in this implementation is constructed by using an Ada 
generic package called SEQUENCES, so that any data type could be stored in the 
nodes of the list. The xSCHEDULE_INPUTS_LIST, V_LISTS, E_LISTS, and 
OP_INFO_LIST in the generic Graph package are constructed by using SEQUENCES. 
The required functions and procedures are encapsulated in SEQUENCES generic 
package which enables the user to operate on the List without knowledge of its 


internal structure. 


Table 4 Record Fields for OP_INFO 


Pew CONTENTS 


NODE The operator information 
SUCCHaDU ies 










ouccessors of the operator defined in the NODE 


PREDEGHodURS Predecessors of the operator defined in the NODE 


These operations include, but are not limited to, the following : 
¢ EQUAL -- determine if the two lists are equal to each other 
¢ EMPTY -- create an empty list 
¢ NON_EMPTY -- determine if the list is empty 
¢ SUBSEQUENCE -- determine if a list is a subsequence of the original list 
¢ MEMBER -- determine if the operator is in the lst 
¢ ADD -- add the operator into the list 
¢ REMOVE -- remove the operator from the list 
¢ LIST_REVERSE -- reverse the order of the original list 


¢ DUPLICATE -- duplicate the original list 
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¢ LOOK4 -- determine if the operator is in the list 
¢ NEXT -- point to the next operator in the list 
¢ VALUE -- return the operator record values. 
The complete specification and implementation of this Linked List can be 
found in Appendix E. 
2. GRAPH 
The Graph type represents the Graph Type Model and has the complete 
information about the Graph, including operators and links information. Figure 8 shows 
how the graph type is implemented. It only presents the information required according 
to the operators being either periodic or sporadic. It is a record which consists only 
two fields, VERTICES and LINKS. They are shown in TABLE 5. VERTICES is a 
pointer for the V_LISTS which is a linked list to store the operators information and 
uses the OPERATOR type as a basic unit, and the LINKS 1s a pointer for the 


E_LISTS which stores the link information and uses the LINK_DATA type. 


Table 5 Record Fields for DIGRAPH 


Paes CONTENTS 


UP aes UDewaneey 11S) Of the Ggireph 
PNK Pitt htStl Of Une Graph 





The graph model is constructed by using an Ada Generic Package called 
GRAPHS, so that any data type could be stored in the nodes of the graph. In the case 


of the Static Scheduler, the nodes are of the type OPERATOR. The required functions 
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and procedures were encapsulated in GRAPHS generic package enabling the user to 
operate on the graph without knowledge of its internal structure. These operations 
include, but are not limited to, the following : 

¢ EQUAL_GRAPHS -- determine if the two graphs are equal to each other 

¢ EMPTY -- creates an empty graph 

¢« IS_NODE -- determine if the operator is in the graph 

¢ IS_LINK -- determine 1f a link is in the graph 

¢ ADD -- add a link into the graph 

¢« ADD -- add an operator into the graph 

* REMOVE -- remove a link from the graph 

¢ REMOVE -- remove an operator from the graph 

¢ SCAN_NODES -- search the graph for a given operator 

¢ SCAN_PARENTS -- find the parents of a given operator in the graph 

¢ SCAN_CHILDREN -- find the children of a given operator in the graph 

¢ DUPLICATE -- duplicate the given graph 

¢ T_SORT -- sort the operators of the graph in a topological order. 

Operations on the graph are easy to use. The use will be explained in details 
later in this Chapter. A complete listing of the specification and implementation of the 
Graph can be found in Appendix E. 

3. VARIABLE LENGTH STRINGS 

The Ada language has a predefined ‘string’ type, but this couldn’t be used 

as the base type for the operator and data stream fields within the OPERATOR, 


LINK_DATA, and SCHEDULE_INPUTS types, because the string must have a pre- 
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defined fixed length. Since these fields are necessarily of a variable length, to 
accommodate the Ada identifiers that would be assigned to them, a variable length 
string abstract data type was necessary. A generic variable length string package from 
a public domain library was chosen for the implementation. It has functions to convert 
a standard Ada string to a variable length string, functions for comparison, and 
procedures for input and output. These were the main functions necessary for the static 
scheduler, though there are many others in the package.[Ref. 6] Utilization of the 
package is very simple, and a complete listing of the specification and implementation 


for the variable length strings abstract data type can be found in Appendix E. 
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Figure 9 Graphical Representation of the system and the data types used 
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C. ARCHITECTURAL DESIGN FOR STATIC SCHEDULERS 

The general DFD for the Static Schedulers is shown in Figure 2. Although there 
are strong similarities with the original static scheduler for CAPS, the architectural 
design is slightly modified to allow the system to run more than one algorithm and 
simplify the decomposition process. The "PSDL_Reader” in AeECHERS in Chapter II is 
called "Preprocessor" in White [Ref. 30] and in this thesis. The “Preprocessor” and 
"Decomposer" were not implemented in this thesis. An example graph with its 
"PSDL_Reader" output file and the file which would be the output of the 
"Decomposer"” were given in Appendix C. Except the “Topological_Sorter’ module 
which is used only by the first static scheduling algorithm, the other modules are 
shared by all the algorithms. 

In this design the first module, known as "File_Processor", reads the input file 
“atomic.info" which has the timing constraints and link information of the operators, 
and extracts the information in this file to construct the Graph Structure. The operators 
which have no critical timing information are separated to another output file, referred 
as "non_crits". This file is used by the Dynamic Scheduler which schedules non-time 
critical operators for execution. 

The "Harmonic_Block_Builder" module first calculates the periodic equivalents 
of the sporadic operators which have no predefined periods. Then checks, if an 
Harmonic Block can be found for a single processor. If yes, it calculates The Harmonic 
Block Length, which 1s used to schedule the operators in they tume intervals. 

The module "Topological_Sorter” takes the Graph Structure as an input and builds 


a precedence relationship, that specifies which operators must complete execution before 
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Figure 10 New DFD for Static schedulers 
other operators can execute. 

The module "Operator_Scheduler" combines the Precedence List and _ the 
Harmonic Block Length for the for the first algorithm to produce a final Static 
Schedule, if possible. Since the Earliest Start and Earliest Deadline Scheduling 
Algorithms do not need THE_PRECEDENCE_LIST, they use only the graph structure 
and the Harmonic Block Length. To keep the design DFD as simple as it is, all the 


static scheduling algorithms are included in this module. 
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The "Exception_Handler” is the last module and handles all the exceptions which 
are critical for the execution of the Static Scheduler. It terminates the program to let 


the designer correct the errors. 


D. EXCEPTION HANDLING 

In this thesis, the schedulers are designed in order to build a static schedule by 
using the atomic operator information extracted from the "atomic.info” input text file, 
unless the conditions are found which would make the construction of the schedule 
infeasible. If none of these conditions are found, the schedulers construct a schedule 
for all the operators that were known for the system. During the operation, an 
exception is raised in two conditions. One of them 1s to notify the designer that a 
schedule is infeasible with the information provided, if any condition is found that 
makes the construction of a schedule unpossible. In this case the scheduler terminates 
the execution. The other one is to notify that although a schedule may be possible, 
there is no guarantee that it will execute within the required timing constraints. In both 
cases. In this case, the scheduler tries to find a feasible solution without terminating 
the execution. 

As we know, Ada® includes several predefined exception conditions, but it also 
permits us to declare user-defined exceptions. Although an exception 1s technically not 
an object, user-defined conditions may be declared anywhere an object declaration is 
appropriate (except as a subprogram parameter).[Ref. 29] 

Three different types of exception handling will be noticed throughout the 


implementation, which are shown in Table 6. Number | through 3 are the examples 
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Table 6 Exceptions used in Static Schedulers 
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of the first type and used to notify the designer that there is no feasible schedule 
exists which meets the requirements of the system in the running scheduling algorithm. 
This type of exception is handled inside the driver program to allow more than one 
static scheduler to run. The second type of exception handling is used to raise 
exception in the local program unit, but passes exception handling to the driver 
program. In this case, when the Static Scheduler discovers an exception, the following 
occur. A variable, named Exception_Operator, is set by the Static Scheduler and a 
procedure call to the Static Scheduler Exception Handler is made to transfer control to 


the Exception Handler. This allows the Exception Handler to handle the exception and 


oy, 


gives the designer the name of the operator that caused the exception. This is done in 
the Static Schedulers by having a global variable named "Exception_Operator" set by 
the local programs before any of this type of exception condition is discovered. This 
shows that a schedule is infeasible with the information set provided, which means the 
scheduler will end the execution without producing a schedule, and thus lets the 
designer make the corrections. Exceptions 4 through 13 indicate that either required 
constraints are missing or they are logically inconsistent. These are the examples of the 
second type. The third type also has the concept of "Exception_Operator" as the second 
type, it is handled inside the packages and its only function is to change a global 
variable, "Exception_Operator’, and print a descriptive message. Exceptions 14 through 
16 indicate that, a feasible schedule may be possible, but there is no guarantee that it 


will execute within the required tuming constraints These are the examples of the third 


type. 


E. PACKAGE PRESENTATIONS OF "THE HARMONIC BLOCK WITH 
PRECEDENCE CONSTRAINTS SCHEDULING ALGORITHM" 

This Static Scheduler, as implemented in this thesis, contains six package 
programming units. Four packages represent primary functional groupings, with two 
additional packages EXCEPTION_HANDLER and _ FILES’ The 
EXCEPTION_HANDLER package has the exception-handling procedures used by all 
the other packages, which are called by the driver program, and the FILES contains 
global data type declarations. The packages utilized in this algorithm are described 


below: 


40 


1. "FILES" Package 

The variable length string, discussed earlier in this chapter, is in the package 
because it is an essential data structure for the unplementation. It enables the operator 
names and the data streams of variable length in the umplementation, up to a maximum 
of 80 characters. The number of characters was chosen arbitrarily and can be changed, 
however, it seems that an Ada identifier of more than 80 characters wouldn’t be 
necessary. 

All the values used for the critical timing information within the data types 
are natural numbers to correspond with PSDL, which makes comparison of values 
within these fields simpler; which in turn would be umportant when the algorithms were 
utilized in CAPS. 

All the packages are instantiated for each of the data types given. This 
includes the DIGRAPH for the graph structure, and linked list for the 
SCHEDULE_INPUTS. This encapsulation of the major data structures allows the rest 


of the packages to proceed. 


2. "FILE PROCESSOR" package 
This module has two procedures in it, SEPARATE DATA and 
VALIDATE_DATA. All the identified exceptions in the procedure VALIDATE_DATA 
in the FILE_PROCESSOR package include : 
1. CRIT_OP_LACKS_MET 
2. MET_NOT_LESS_THAN_MRT 
3. MCP_NOT_LESS_THAN_MRT 


4. MCP_LESS_THAN_MET 
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5. SPORADIC_OP_LACKS_ MCP 

6. SPORADIC_OP_LACKS_ MRT 

7. MET_NOT_LESS_THAN_PERIOD 

8. MET_IS_GREATER_THAN_FINISH_WITHIN 


9. PERIOD_LESS_THAN_FINISH_WITHIN 


The non-time critical operators are separated in SEPARATE_DATA and put 
into the "“non_crits" file for future use in Dynamic Scheduler. While the non-time 
critical operators are separated, all its dependent link information is also checked and 
extracted without putting them into the graph structure. It 1s assumed that time critical 
operators always have an MET and non-time critical operators never have any time 
constraints. All the periodic and sporadic operators are extracted from the input text file 
in SEPARATE_DATA and a Graph structure is constructed. This procedure also 
extracts the EXTERNAL input and output link information in that file. 

The example shown in Appendix. B for the Fig. 14 is an Acyclic type of graph. 
In the graph, OP_3 is a sporadic operator and OP_5 is non-time critical. It has 
EXTERNAL input and output data streams with the two data streams from OP_I to 
OP_2. The current implementation of the static scheduler will extract the non-time 
critical operator OP_S from the graph by using SEPARATE_DATA procedure in 
FILE_PROCESSOR package and put it into the “non_crits’ file. The EXTERNAL 
input-output data streams are assumed ready whenever needed, the graph doesn’t have 
this information either. Fig. 11(b) shows the latest fonn of the graph structure. The 


links which are related with this non-time critical operator are excluded from the graph 
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later in the same procedure. OP_3 is converted into its periodic equivalent with the 
CALC_PERIODIC_EQUIVALENTS procedure in HARMONIC_BLOCK_BUILDER 
package. | 

The procedure VALIDATE_DATA is one of the most important procedures 
within the static scheduler. Static Scheduler performs some basic validity checks on the 
timing constraints contained in the "atomic.info" file, which is accomplished after the 
Graph structure is built. The first check CRIT_OP_LACKS_MET verifies that all 
critical operators have an MET. Checks 2 through 6 are valid for Sporadic Operators; 
if the Sporadic Operator doesn’t have an MCP, the _ exception 
SPORADIC_OP_LACKS_MCP 1s raised, or else MCP_LESS_THAN_PERIOD ensures 
that MCP is less than MET. The SPORADIC OP LACKS MRT ensures that MRT has 
a value and MET_NOT_LESS_THAN_MRT ensures that MRT is greater than the MET 
for the Sporadic Operators. The MCP_NOT_LESS_THAN_MRT guarantees that an 
operator can fire at least once before a response expected. The significance of these 
validity checks will become apparent in_ the section for 
"HARMONIC_BLOCK_ BUILDER" package. Checks 7 through 9 are for the periodic 
operators, MET_NOT_LESS_THAN_PERIOD ensures that the PERIOD is greater than 
MET, MET_IS_GREATER_THAN_FINISH_WITHIN ensures that FINISH _WITHIN 
is greater than MET, and PERIOD_LESS_THAN_FINISH_WITHIN is included for the 
correct execution of the algorithms. In all nine cases, if any one of these checks fails, 


an exception is raised and an appropriate error message is submitted to the user. 
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3. "TOPOLOGICAL SORTER" package 

The TOPOLOGICAL_SORTER package contains only one procedure which 
utilizes T_SORT in the generic GRAPH package. It is a simple algorithm that 
essentially finds the operator, which must precede all others in a set, concatenates that 
operator to a sequence of operators, which is called PRECEDENCE_LIST and then 
deletes this operator and all its incoming and outgoing edges from the graph. This 
cycle is repeated until all operators have been deleted from the graph. The final 
sequence in PRECEDENCE_LIST should contain all operator names, in order, by 
precedence. Fig. 14(a) shows a PSDL graph implementation with its EXTERNAL input 
and outputs, but this graph is represented as seen in Fig. 14(b) in the graph structure 
unplemented in this thesis, the assumption of incoming data from EXTERNAL sources 
are ready at start allows us to do this. Since all the links are deleted after the operator 
was added into the PRECEDENCE_LIST, there wouldn’t be any duplicates of the same 
operator in this list. 

4. "HARMONIC BLOCK BUILDER" package 

The same graph structure is also the input for this package. A time frame 
in this thesis is a set of periodic operators where the periods off all its component 
operators are exact multiples of a calculated base period [Ref. 15: p. 7]. This package 
is implemented as described in Chapter II, Section B, with the exception of sorting of 
the operators in ascending order, based on the period values after all the operators are 
in periodic form. Instead, the minimum period is found for calculation of GCD because 
only the smallest period was required for finding GCD, and this was simpler to 


implement than sorting the list. 


(a) PSDL Graph Implementation 


EXTERNAL EXTERNAL 


EXTERNAL 


ce Topolegiteal Sort 


Fo ale, 


oe © ees _ 5D 





Figure 11 PSDL Graph and its representation in implemented Graph Structure 

The procedure CALC_PERIODIC_EQUIVALENTS was used to determine 
the equivalent periods for sporadic operators. And FIND_BASE_BLOCK was used to 
find a base block which verifies that an Harmonic Block Length can be detennined for 
the designed system. The two algorithms that can be used to determine the GCD which 
is described in Janson [Ref. 13: p. 38]. Within this thesis the second algorithm is used 
since the implementation was more straightforward, and, for a single-processor 
environment, the second pass verifies that all periods were assigned correctly to the 
first sequence if the alternate sequence equals the null set [Ref. 13: p. 38]. The last 


procedure is the FIND _BLOCK_LENGTH which uses an algorithm to calculate the 
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length of time for the Harmonic Block known as The Least Common Multiple(LCM) 
of all the operators’period contained in the block. Figure 12 describes the algorithm 
which is explained in detail in Janson[Ref. 13: p. 39]. Two exceptions are reasonable 
to have in this package. One of them is NO_BASE_BLOCK which means that it is not 
possible to find a length for the time frame. The other is 
MET_NOT_LESS_THAN_PERIOD which verifies that the calculated period of the 


sporadic operator is greater than MET of the same operator. 
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Figure 12 Finding a time interval for the system 


5. "OQPERATOR SCHEDULER" package 
The PRECEDENCE_LIST and HARMONIC_BLOCK_LENGTH were used 


as input in the OPERATOR_SCHEDULER for this scheduling algorithm. Procedure 
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TEST_DATA tests the operators if they follow three basic rules which verifies that a 
feasible static schedule always exist. These basic rules include: 

¢ The MET of the operator should be less than half of its period 

¢ The total MET/PERIOD ratio sum of operators should be less than 0.5 


¢ Tha total execution time of the operators should not exceed _ the 
HARMONIC_BLOCK_LENGTH. 


Detailed information can be found in Mok [Ref. 30]. If some of these tests are 
not satisfied, the static schedulers will try to find a feasible schedule, but there is no 
guarantee to have one. 

Part of the OPERATOR_SCHEDULER which belongs to the first algorithm is 
implemented in two. steps as mentioned in Chapter II; the procedure 
SCHEDULE_INITIAL_SET performs the first step process, and allocates an execution 
time with a firing interval for each operator to use in the next step. The 
SCHEDULE_REST_OF_BLOCK performs the second step and completes the rest of 
the process. The procedure CREATE_INTERVAL is_ used _ by _ the 
SCHEDULE_INITIAL_SET in the § ffirst step and by the 
SCHEDULE_REST_OF_BLOCK for the next firing intervals. Appendix A shows the 
static schedule for the linear graph in Fig. 13 at the end of the process. The operators 
are scheduled in the order {read_numbers, sort_numbers, write_numbers} during the 
first iteration of this process. Since all the operators have a period of 20 with a 
harmonic block length 20, they are scheduled only once in the block. Since all the 
firing intervals are greater than the harmonic block length in this example, we do not 


need a second process. Before an operator is allocated a time slot, this process verifies 
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Figure 13 Graph Model for Example 1 


for all the operators that: 
¢ (current_time + MET) <= harmonic block length 
In the example shown in Appendix B, for Fig. 14 ,we have the second process 
as the continuation of the first process. In this example, since the OP_2 has a 
FINISH_WITHIN constraint, this 1s considered in calculating the firing interval of 
OP_2. This means that for the upper limit of the intervals of OP_2 the 


FINISH _WITHIN 1s used instead of PERIOD. 


F. IMPLEMENTATION OF "THE EARLIEST START SCHEDULING 
ALGORITHM" 

The nonpreemptable version of this algorithm is implemented in this thesis, and 
precedence constraints are included. 

This algorithm utilizes all the packages that the previous algorithm does with the 
exception of TOPOLOGICAL SORTER. Although this algorithm doesn’t use that 
package, it considers the precedence relationships among the operators, with the way 


it is implemented in this thesis. 
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First, the Graph Structure is constructed as being described in previous algorithm, 
and all the tests in FILE.PROCESSOR package are applied. When the Graphical 
representation of the system is aoniest the Harmonic Block Length 1s calculated. 
Then the algorithm starts to deviate from the first algorithm. The rest of this section 


describes in details, how the algorithm works with the procedures used in the 


OPERATOR_SCHEDULER. 
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Figure 14 Graph structure for Example 2 
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1. “OPERATOR SCHEDULER" package 
This is the same package used for the first algorithm. It includes the the 

procedure for the Earliest Start Time Scheduling Algonthm which is called 
SCHEDULE_WITH_EARLIEST_START. The final output list AGENDA) of this 
procedure is used by the procedure CREATE_STATIC_SCHEDULE for the final 
output. There are some other functions and _ procedures that the 
SCHEDULE_WITH_EARLIEST_START procedure uses. They are as follows: 

1. procedure BUILD_OP_INFO_LIST 

2. procedure PROCESS_EST_NODE 

3. function FIND OPERATOR 

4. function CHECK_AGENDA 

5. procedure EST_INSERT 

6. function OPERATOR_IN_LIST 

7. procedure EST_INSERT_SUCCESSORS_OF_OPT 

8. procedure PROCESS _EST_AGENDA 

Two examples are shown in Appendix A and Appendix B for Fig. 13 and 

Fig. 14. In the example in Appendix B, the total MET/PERIOD ratio sum of the 
operators is greater than 0.5. This message is printed on the screen, but since this is 
not a fatal constraint, the algorithm proceeds to min for a feasible schedule. As soon 
as the Time Interval is determined, the OP_INFO_LIST as shown in Fig. 15(a) is 
constructed in procedure BUILD_OP_INFO_LIST. The AGENDA list includes the final 
operators list with their start and stop times which are used by 


CREATE_STATIC_SCHEDULE for the final static schedule, shown in Fig. 15(b), and 
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MAY_BE_AVAJILABLE list includes the available operators with their EST’s for the 
scheduling, shown in Fig. 15(c). The processes of this algorithm are explained in the 
following steps: 


1. Find the operators which has no predecessors and put them all into the 
MAY_BE_ AVAILABLE list. Since all these operators have the same Earliest Start 
Time(EST), the order of the operators is not important in here. The EST for all of 
these end nodes is zero. Since EST is the same, we can pick any one of = them 
according to which one is first in the List. 


2. Select the first operator and put it into AGENDA list with a calculated start 
tume(THE_START) and stop tume(THE_STOP). 


3. Define a new EST for the selected operator and put it back into the 
MAY_BE_AVAILABLE list. 


4. Assign THE_STOP of the selected operator to its successors as their EST’s and 
insert them into the MAY_BE AVAILABLE list in an order according to their 
EST’s. 

5. Get the first operator with the smallest EST in MAY_BE_ AVAILABLE list and 
look if all its predecessors are in AGENDA. If the answer is no, then get the 
next operator and check the predecessors again. Repeat the process until the 

answer is yes. Then assign a new EST for the selected operator and put it back 

the MAY_BE AVAILABLE LIST in an order according to its EST. 

6. If any successor of the selected operator is not ALREADY in the 
MAY_BE_AVAILABLE list, assign THE_STOP of the selected operator to that 
successor as its EST and insert into the MAY_BE AVAILABLE list in its 

order. 


7. Repeat the process 5 and 6 above until the EST of the selected operator in 
MAY_BE_ AVAILABLE list 1s greater or equal to the time interval(HBL). 


During the umplementation of this algorithm, the abstract data types are tried 
to be utilized instead of creating new data types. This is preferred to avoid the 
complexity of the programs and reduce the time spent for creating the new data 
Structures. Besides, this was very practical for the comparisons among the operators. 


As a result of this, the SCHEDULE_INPUTS abstract data type is used for the 
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operators in AGENDA and MAY_BE_AVAILABLE list. For the EST information of 
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Figure 15 Linked List representations used in Algorithm 2 and Algorithm 3. 


the operators THE_LOWER field in the SCHEDULE_INPUTS abstract data type is 
used. THE_START and THE_STOP fields are as being used in the first algorithm. 
Whenever an operator was selected from MAY_BE_AVAJLABLE list and verified that 
all its predecessors are in AGENDA, it was taken out of the list. After it is processed, 
it was put back again in its order with new EST. The MAY_BE_AVAILABLE_LIST 
is kept in order because if all the predecessors are not i AGENDA during process 5, 


that operator is is skipped and the process is repeated for the next operator. In this 


"Ne 
ho 


ordered form, there is no necessity to look for the smallest EST in the list. The first 
operator always has the smallest EST. During the scheduling, if THE_STOP time of 
any operator is greater than the HARMONIC_BLOCK_LENGTH, then exception 
OVER_TIME is raised for that operator. This algorithm is not optimal as the branch 
and bound tree explained in Chapter III, but has the advantage that it is more compact 


in time and space. 


G. IMPLEMENTATION OF "THE EARLIEST DEADLINE SCHEDULING 
ALGORITHM 

The implementation of this algorithm is very similar to the “Earliest Start 
Scheduling Algorithm". Package utilization is the same as in the preceding algorithm. 
It also considers the precedence constraints among the operators. The only difference 
from the preceding algorithm is that the operators are selected according to their 
earliest deadlines instead of their earliest start tumes.The rest of this section describes 
in details, how the algorithm works with the procedures used in_ the 
OPERATOR_SCHEDULER. 

1, "OPERATOR SCHEDULER" package 

This package is shared with the other algorithms. It includes the procedure 

for the Earliest Deadline Scheduling Algorithm which is __ called 
SCHEDULE_WITH_EARLIEST_DEADLINE. The final output list AGENDA) of this 
procedure is used by the procedure CREATE_STATIC_SCHEDULE for the final 


output. Procedure number | and functions number 3.4.6 shown on page 50 for the 


Earliest Start Scheduling Algorithm are shared. The other procedures used by this 
algorithm are: 

¢ procedure PROCESS_EDL_NODE 

¢ procedure EDL_INSERT 

¢ procedure EDL_INSERT_SUCCESSORS_OF_OPT 

* procedure PROCESS_EDL_AGENDA 

The two examples are given in Appendix A and Appendix B. The second 

example gives the same waming message as the others. Most of the criteria in this 
algorithm is the same as the Earliest Start Scheduling Algorithm. The major difference 
is the order of the MAY_BE_AVAILABLE LIST which is ordered according to the 
earliest deadlines(EDL) of the operators. And this is considered during the scheduling 
process. The processes of this algorithm are explained in the following steps: 

1. Find the operators which has no predecessors and put them all into the 

MAY_BE_ AVAILABLE list in their orders according to their Earliest 

Deadlines(EDL). Since all these operators have different EDL, the order of the 

operators are important in here. Because of all the operators are in their orders 

according to their EDLs, we can pick the first one in the list. Since these have m 


predecessors, we do not need to check if the predecessors are in the AGENDA. 


2. Select the first operator and put it into AGENDA list with a calculated 
THE_START and THE_STOP. 


3. Define a new EDL for the selected operator and put it back into the 
MAY_BE_AVAILABLE list. 


If the operator has a FINISH_WITHIN in it then, 
EDL := EST + FINISH _WITHIN: 
otherwise; 


EDL := EST + THE_PERIOD: 


4. Assign new EDL to each successor of the selected operator and insert them into 
the MAY BE AVAILABLE list in an order according to their EDL’s. 


5. Get the first operator with the smallest EDL in MAY_BE_ AVAILABLE list and 
look if all its predecessors are in AGENDA. If the answer is no, then get the 
next operator and check the predecessors again. Repeat the process until the 

answer is yes. Then assign a new EDL for the selected operator and put it back @ 

the MAY_BE AVAILABLE LIST in an order according to its EDL. 

6. If any successor of the selected operator is not ALREADY in the 
MAY_BE_ AVAILABLE list, assign a new EDL to that successor and insert into 
the MAY_BE_ AVAILABLE list in its order. 

7. Repeat the process 5 and 6 above until the EDL of the selected operator in 

MAY_BE AVAILABLE list is greater or equal to the time interval(HBL). This is 

the stop condition and where "pointer = null’. 

H. SUMMARY 

When the three algorithms are compared with eachother, The Earliest Start 
Scheduling Algorithm is more flexible and more efficient than the others. The way that 
it is presented in Chapter II uses a branch, exclude, and bound method. It searches all 
the branches in the tree one by one. But when the precedence relationships are 
considered, the disadvantage of this algorithm is the time complexity. Besides, it 
doesn't guarantee an optimal solution anymore. For these reasons, this algorithm is 
implemented with the Graph Structure. It was possible to construct the same structure 
as in Chapter two with Graph Structure, but it would be very hard to implement and 
we would need a very big storage capacity. Instead, the branches that we will not use 


are eliminated at the beginning, and this was the tradeoff between an optimal solution, 


and fast and easy implementation with less memory. 
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IV. DEVIATIONS FROM PREVIOUS WORK 


There are some deviations from the previous implementation presented in Marlow 
[Ref.6] in this thesis. The assumptions made for the data requirements of the operators 
differentiates from the earlier assumptions to overcome some problems. The Graph 
Model is used as a basic structure instead of a N-ary tree structure for efficiency and 
simple process of the operators. The rest of the packages which are not implemented 
in Marlowe [Ref. 6] are completed. The “Exception_Handler" module included in this 
design is not the only level of exception handling, because the existance of some 
nonfatal exceptions raised during the execution do not require the programs to exit. 


Three different level exception handling exist in the implementation in this thesis. 


A. ASSUMPTIONS 

In Marlowe [Ref. 6: pp. 52-54], there was a problem mentioned in handling the 
non-time critical operators. The problem was how to separate the non-time critical 
operators whose data is required for a critical operator. Fig. 16 shows the situation. In 
this thesis, it 1s assumed that the operator between the two critical operators 1s always 
critical unless there is another path connecting the two critical operators. In this case, 
the output data of the non-time critical operator should be initialized. This handles the 
problem in separation of the non-time critical operators and so, since the OP_2 will not 
depend on the data of OP_4, OP_2 uses the new output data of OP_4 only when the 


dynamic scheduler executes the operator OP_4. 
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_ Pe ee 


CRITICAL CRITICAL CRITICAL 


EXTERNAL EXTERNAL 





NON-CRITICAL 
Figure 16 Example graph assumed for non-critical operators 


B. DATA STRUCTURES 

Although the abstract data types used for operator information and_ final 
scheduling is kept the same, the LINK _DATA abstract data type used for the link 
information is changed and some other data types are included for the other algorithms 
implemented. The LINK_DATA has a field called THE_LINK_MET,;; this field was not 
used during the implementation, but it is kept zero to show that we assume the time 
for the data flow for a single processor is zero. All the data structures are explained 


in details in Chapter HI. 


C. ARCHITECTURAL DESIGN 

The architectural design in this implementation mostly looks like that presented 
in Marlowe [Ref. 6]. The Fig.4 and Fig.10 shows the differences in the two DFDL’s. 
Since this implementation is the standalone static schedulers, an exception handler was 
needed, which is the same as the Debugger in CAPS. The second thing ts the 
separation of the “PSDL_Reader" into "Preprocessor" and "Decomposer". The 


"Preprocessor’ reads in the PSDL source file for the prototype being designed and 
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produces a text file containing the information of the composite and atomic operators 
together. The resultant text file becomes the input to the module “Decomposer” which 
separates the atomic operator and link information, and does the validity checks 
between the composite and atomic operators. It produces a text file containing only the 
atomic operator and link information which becomes the input to the module 
"File_Processor". This separation makes the decomposition process easy and reduces 


the complexity. 


D. EXCEPTION HANDLING 

There are three different types of exception handling in this implementation. One 
of them is the outmost level exception handling which handles the major errors 
encountered during the execution. This is the same idea mentioned in Marlowe [Ref. 
6]. Other level of exceptions are needed to run the static schedulers as standalone and 
to give warnings to the user without exiting the program. The details of the exception 


levels are given in Chapter III, Section D. 


E. PACKAGE IMPLEMENTATION 

The pseudo code listing given in Janson [Ref. 13] and the variable length string 
abstract data type, VSTRINGS, are utilized for the unplementation of the first 
algorithm. 

The OPERATOR_SCHEDULER package consists all the three static schedulers. 
The reason for not having different modules for every other static_scheduler is that all 
the static schedulers implemented here have the same time interval concept and share 


most of the procedures in this package. 


ea) 
ee) 


In this implementation, the modules in the original 1 DFD are tried to have 


minimum change to keep the original design as simple as possible. 


V. CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY 

This thesis provides three static schedulers which are the first complete 
implementations that support the Computer Aided Prototyping for Embedded Real- 
Tune Systems. These schedulers can also be executed as standalone in the way that 
they are implemented. 

Most of the algorithms written in the past do not address the problem of how to 
schedule tasks that have precedence constraints. Since the precedence constraints are 
considered in these algorithms, the graphical representation(directed graphs), and the 
notion of a base timeframe was used. None of the algorithms presented in this thesis 
gives an optimal solution to the problem of scheduling Hard Real-Time Systems with 
precedence constraints. But these schedulers are important in supporting the Execution 
Support System(ESS) within the framework of CAPS. 

The contribution of this thesis to CAPS and Hard Real-Time Systems was the 
implemented static schedulers for non-preemptable, single processor systems. These 
static schedulers allow operators from any type of software system, even those with 
control] based on data flow, to be scheduled in a way that meets all critical timing 


constraints. 
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B. CONCLUSIONS 

With the implementation of these static schedulers in this thesis, the major part 
of the Static Scheduler in the ESS within CAPS is completed. These are integrated into 
the Execution Support System, with the simulation of "Decomposer’. The new data 
structures like Graph Structure are introduced to the Static Scheduler. The Graph Model 
was very successful to capture the computational requirements of the Hard Real-Time 
Systems. 

The schedulers are umported into the Execution Support System where 
"Decomposer" is simulated for the current STATIC_SCHEDULER. Since the composite 
operator information is not included in the graph data type, the names of the operators 
in STATIC_SCHEDULER output should start with the names of their composites to 
avoid the naming conflicts with the TRANSLATOR shown in Fig.3 The information 
of how these are related to eachother can be found in Palazzo [Ref. 32]. The driver 
program that runs the standalone static schedulers is adopted for the CAPS environment 
which is shown in Appendix F. Otherwise the schedulers were successfully used in 
CAPS. | 

All the programs in this thesis are implemented in Ada. Ada’s modularization and 
generic package advantages with its exception handling mechanism were utilized to 
model the static schedulers for single processor. Even though Ada was very efficient 
for single processor environment, since it uses a FIFO queue for the parallel tasks, 
there would be a very big problem in the implementation of the schedulers for 


multiprocessor systems. When the tasks are queued during the parallel processing, we 
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can not uSe any priority, or precedence relationship in the schedulers. This means Ada 
will need some changes for the umplementation of optimal static schedulers. 
Several areas for further research include the following: 
¢ Implementation of the “Decomposer’ 


¢ Implementation of more efficient algorithms which give optimal solution to the 
scheduling problem 


¢ Implementation of the static schedulers for preempted, multiprocessor systems 

¢ To find a solution for the FIFO queue restriction for parallel tasking in Ada. 
As soon as the "Decomposer" is completed and imported to the implementation, 
CAPS will not need any simulation for running the static schedulers. So the CAPS 


system will have a complete ESS running in its environment. 
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APPENDIX A. LINEAR GRAPH EXAMPLE 


tmeeLolLlLOwing 2s the "“atomic.into" file used as an input for the satic scheduleing 
algorithms in Figure 13. 


ATOMIC 

read numbers 
MET 

10 

PERIOD 

20 

ATOMIC 

sort numbers 
MET 

Z 

PERIOD 

20 

ATOMIC 

write numbers 
MET 

2 

PERIOD 

Z0 

LINK 

a 

read numbers 
0 

Bene numbers 
LINK 

b 

sort numbers 
0 

write numbers 


63 


IMPLEMENTATION 


ee ee ce ce ee ee ee ee ee a 


HARMONIC BLOCK LENGTH (HBL) = 20 
OPERATOR _ID MET ‘PERIOD 
read mumbers 10 20 
sort numbers 2 20 
ire vee Tgubinler iets Zz 2G 


1) FIRST ALGORITHM: 


PRECEDENCE LIST { read numbers, sort_nmumbers, write numberome 
STATI©G SCHEDVUEGE- 


Message to the user: 

1- The total MET/PERIOD ratio sum of operators is greater than Q.5. 

2- Although a schedule may be possible, there is no guarantee that 
it will execute within the required timing constraints. 


OPERATORS Ip STAR C2 UME BN Dit ae FIRING VINER VAG 
read numbers Q 19) (20,30) 
sort numbers 1) r2Z (30,45) 
write numbers 1 14 (327510) 


STOP CONDITION: All firing intervals are greater than HBL in the last pass. 
A feasible schedule found, READ "schedule.out" file. 
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2) SECOND ALGORITHM: (Earliest Start time Scheduling Algorithm) 


1- The total MET/PERIOD ratio sum of operators is greater than 0.5. 
2- Although a schedule may be possible, there is no guarantee that 
it will execute within the required timing constraints. 


SUCCESSORS : PREDECESSORS 
read numbers [sort_numbers] TeaGgmuumoer Ss al =) 
sort_numbers [write numbers] sort numbers [read_numbers] 
Perce saumbers j|—}) write numbers [sort_numbers] 
AGENDA : MAY BE AVAILABLE 
ese 1) [ ) iecadeaumbers) (end node) 
(EST: 0) 
peePez) [read numbers] [sort numbers, read_numbers] 
START:0 (fos) (ESE4Z0) 
FINESH?10 


STEP_3) [read_numbers, sort_numbers] [write numbers, read_numbers, sort_numbers] 
START: 0 START 2 10 (EST% 12) (EST: 20) (EST +30) 
Peli ome TU Piro: 12 


STATIC SCHEDULE: 


febee4) [read numbers, sort numbers, write numbers] 
START: 0 START: 10 START: 12 
Pints: 10 Fount sh? FINISH: 14 


[xread_numbers, sort_numbers,write numbers] 
(ESL 220) (EST: 30) (EST +32) 


SLOP GONDITION : (All EST values are greater than HBL). 
A feasible schedule found, READ "ss.a" file. 
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3) THIRD ALGORITHM : (Earliest Deadline Scheduling Algorithm) 


1- The total MET/PERIOD ratio sum of operators is greater than 0.5. 
2- Although a schedule may be possible, there is no guarantee that 
it will execute within the required timing constraints. 


SUCCESSORS : PREDECESSORS 
read numbers [sort numbers] read numbers (=) 
sort numbers [write numbers] sort numbers [read_numbers] 
write numbers [-] write numbers [sort numbers] 
AGENDA 4 MAY BE AVAILABLE 
SOEE 8) silo [read numbers] (end node) 
(ES7 20) 
(EDL: 20) 
STEP 2) [read numbers] [sort numbers, read number 
START? O (ESE: 10) (EST 220) 
FINISH:10 (EDL: 30) (EDL: 40) 


STEP 3) [read numbers, sort numbers) [write numbers, read numbers, sort numbers] 
START: 0 START:10 (ES hae (EST 220) (EST 23a 
FINISH: 10 PINTSH: be (EB DUs32) (EDL: 40) (EDL: 50) 


STATIC SCHEDUES:. 
STEP 4) {read numbers, sort numbers) write umumeera| 
START. 0 START: 10 START: 12 
FINISH:10 FINISH: az FINISH: 24 


[read_numbers, sort _numbers, write numbers] 
(EST 220) (EST230)) (EST saa 
(EDL: 40) (EDL<9@) (EDL: S23 


STOP: CONDI TION: (All EST values are greater than HBL). 
A feasible schedule found., READ "ss.a" file 
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Miewoutrput “ss a 21le created as static schedule for the first algorithm 
with TL; use TL; 
with DS PACKAGE; use DS_PACKAGE; 
with PRIORITY DEFINITIONS; use PRIORITY DEFINITIONS; 
with CALENDAR; use CALENDAR; 
fen TEXT IO; use TEXT_IO; 
procedure STATIC SCHEDULE is 

write numbers TIMING ERROR : exception; 

sort numbers TIMING ERROR : exception; 

read numbers TIMING ERROR : exception; 

task SCHEDULE is 

pragma priority (STATIC SCHEDULE PRIORITY) ; 
end SCHEDULE; 


task body SCHEDULE is 


PERIOD : constant := 20; 
read numbers _STOP_TIME1 : constant := 10.0; 
sort numbers STOP_TIME2 : constant := 12.0; 
Tite numbers STOP _TIME3 : constant := 14.0; 
SLACK TIME : duration; 
Peek r OF PERIOD : tame <= clock, 
begin 
loop 
begin 
read numbers; 
SLACK TIME := START OF PERIOD + read_numbers STOP TIME1 - CLOCK; 


me ouaCK TIME >= 0:0 then 
delay (SLACK_TIME) ; 
else 
Eatse read numbers TIMING ERROR; 
end if; 
gediay (START OF PERIOD + 10.0 —- CLOCK); 


sort numbers; 
SLACK _TIME := START_OF PERIOD + sort numbers STOP TIME2 - CLOCK; 
if SLACK_TIME >= 0.0 then 
delays (SLACK TIME) ; 
else 
raise sort numbers TIMING _ ERROR; 
end if; 
delay (START OF PERIOD + 12.0 - CLOCK); 


write numbers; 
Neh tiME >= START OF PERIOD + Wo eeemnumoecr suo lO TIME? - CLOCK; 
if SLACK TIME >= 0.0 then 

delay (SLACK TIME) ; 


else 
raise write numbers TIMING ERROR; 
end if? 
Plant OF (PERTOD ;— START OF PERIOD + PERIOD; 
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delay (START OF PERIOD. — clock): 
exception 
when write numbers TIMING ERROR => 
PUT LINE("timing error from operator write numbemage 
START OF PERIOD := clock; 
when sort numbers TIMING ERROR => 
PUT LINE ("timing error from Operator Sort moumiber= ge 
START _OF PERIOD := clock; 
when read numbers TIMING ERROR => 
PUT LINE("timing error from operator readynumeerau, 
START OF PERIOD := clock; 
end; 
end loop; 
end SCHEDULE; 


begin 


ho id ld ba 
end STATIC_SCHEDULE; 
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APPENDIX B. ACYCLIC GRAPH EXAMPLE 


The following is the "atomic.info" file used as an input for the 
Static Schedulers for Figure 16. 
ATOMIC 

SP 1 

MET 

1 

PERIOD 

1 

ATOMIC 

OP 2 

MET 

i 

PERIOD 

8 

WITHIN 

7 

ATOMIC 

er 3 


ATOMIC 
OP 4 
MET 

Z 
PERIOD 
8 
ATOMIC 
Os, 
LINK 
al 
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OF 2 
LINK 
Sake 
EXTERNAL 
0 

OF Eat 
LINK 
finash 
OPT 4 

0 
EXTERNAL 


IMPLEMENTATION 


HARMONIC BLOCK LENGTH (HBL) = 24 


OPERATOR _ID MET PERIOD FINISH WITHIN 
OP_1 A ne - 
@P 2 1 8 7 
OP 3 1 8 (EQUIVALENT) - 
OP 4 2 8 - 


1) FIRST ALGORITHM: (Earliest Start Scheduling Algorithm) 


PRECEDENCE LIST { OP_1, OP_2, OP_3, OP 4 } 
STATIC SCHEDULE: 


Message to the user: 


— re eee ee es ee ee es ee es ee ee ee oe ee ee 


1- The total MET/PERIOD ratio sum of operators is greater than 0.5. 
2- Although a schedule may be possible, there is no guarantee that 
it will execute within the required timing constraints. 


OFERATOR ID START TIME END TIME FIRING INTERVAL 


oe eee ee ee ee ee ee ee 


OP 1 0 1 (ZZ 3) 
OP 2 al 2 MEOre 15.) 
OP 3 Z 5 (10,17) 
OP 4 3 5 Cle a7) 
Second Process 

OP_1 az als: (247.35) 
Oa ies} 14 AA. 23 ) 
OE 3 14 1S (lS 25) 
OP_4 TS ake, (19,25) 
er 2 Lg 18 ~ (257 31) 
Se. 3 ils) 19 (26733) 
OP 4 19 Pal (27533) 


STOP CONDITION: All firing intervals are greater than HBL in the last pass. 
A feasible schedule found, READ "ss.a" file. 
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2) SECOND ALGORITHM: 


(Earliest Deadline Scheduling Algorithm) 


1- The total MET/PERIOD ratio sum of operators is greater than 0.5. 
2- Although a schedule may be possible, there is no guarantee that 
it will execute within the required timing constraints. 


SUCCESSORS 


OP 1 [OP 2] 
OP 2 [OP 3,OP_4] 
OP_3 [OP_4] 


we ee ce ee ee ee we es es es ce ee = 


Opa =] 

AGENDA 
SIRE 1) [ae 
STEP 2) [OP_1] 

START: 0 

FINISH: 
STEP 3). (2.3. 35S 
SUP 4) leat eee 
SMU) eye eS 6 = G5 ooo & 
STEP G)) “| iva.qsc see 
STEP 17): [igs ere 
STEP 8). Me. eee 
SPEP TO). ics... eee 
STEP 0} ie wks ee 
STEC gL] eee 


FO) 751 
START 
FINITSHs2 
FOP a3] 
START 32 


OP me | 


START:3 
FING@SH:5 
,OP_ 2] 
START: 9 
FINISH:10 
,OP_ 3] 
START:10 
,OP_ 4] 
START: 11 
Fanlone1s 
FOr es | 
START =12 
FINISH:14 
NROP’ 2) 
START 219 
FENTSH es 
OEM] 
START:18 
FINISH:19 


PREDECESSORS 


OP 3 [OP 2] 
OP 4 [OP 2,0P_ 3] 


MAY BE AVAILABLE 
[OP_1] (end node) 
(EST: 0) 
| OP 2 ora] 
(EST 21) (Bs2 72 


[ OP_3, OP 4, OP 2) seem 
(EST :2) (EST:2) (EST: 9) (estas 


[ OP 4, OP 2, OP 37) OPmimm 
(EST:2) (EST:9) (EST:10) (EST:12) 
[ OP_2, OP.3, OP 47 .0crum 
(EST: 9) (EST:10) (EST:11) (EST:12) 


[ OP_3, OP_ 4, OP_1, OP (2am 
(EST:10) (EST:11) (EST:12) (es eee 


[ OP 4, OP 1, OP 2, “GPmam 
(EST:11) (EST:12) (EST:17) (EST 
[ OP_1, OP 2, OP 3, GEuaam 
(EST:12) (EST:17) (EST:18) (EST:19) 


[ OP 2, OP 3, OP 4, oPp1l ] 
(EST:17) (EST:18) (EST:19) (EST:25) 


[ OP 3, OP 4, OP 1, OP 2a 
(EST:18) (EST:19) (EST:25) (250 ee 


[ OP 4, OP_1, OP 2, (Oomeme 
(EST:19) (EST:25) (EST: 25) (HST 


2 


os 2 


SIrOP CONDITION: 


ee ,OP_ 4] erm OPS2, OP 3, OP 4 | 


START:19 (EStewo) (ESMrZ5) (EST: 26) (EST: 27) 
FrenNirsSH: 21 


All EST values are greater than HBL in the last pass. 


A feasible schedule found, READ "ss.a" file. 
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THE OUTPUT "ss.a" FILE CREATED AS STATIC SCHEDULE FOR THE FIRST ALGORITHM: 
with TL; use TL; 
with DS PACKAGE; use DS_ PACKAGE; 
with PRIORITY DEFINITIONS; use PRIORITYSREMaN IIIs, 
with CALENDAR; use CALENDAR; 
with TEXT 10; use 2ExEaIG, 
procedure STATIC SCHEDULE 1s 

OP_4 TIMING ERROR : exception; 

OP 3 TIMING ERROR: Sexeepeiony, 

OP_2 TIMING ERROR exception; 

OP 1 TIMING ERROR. excepezon, 

task SCHEDULE is 

pragma priority (STATIC SCHEDULEDPRICE (i), 
end SCHEDULE; 


task body SCHEDULE is 


PERIOD = -const ant. 2a 
OP 1 STOP TIME! constant. = 1. Oe 
OP 2 STOP TIMEZ ~ colistantw.. 20F 
OP 3 STOP TIMES) const aiieu: = 3205 
OP 4 STGP. TIME4 = 3 constant = 5:20 
OP 1 STOP TIMES ; constant): — 347 
OP 2 STOPSIIMBEG <=conslant) = etic 
OP 3 STOP TIME? (eonstanta. — 2s a0. 
OP 4 STOP TIMES SS constant == ar 
OEe Wy. _ STOP _ TIMES weonst antes — loo) 
OP_3 STOP TIME10@ = constante:— oer 
OP 4 STOP TIME11 secOnscant > cian 
SLACK TIME”: durarven, 
START OF PERIODS @eime j25clock, 
begin 
loop 
begin 
ORE L; 
SLACK TIME := START OF PERIOD + OP_1 STOP TIME1 - CLOCK; 


if SLACK _TIME >= 0.0 then 
delay (SLACK TIME) ; 
else 
raise OP J TIMiNeeeRROor, 
end if; 
delay (START CHEEK LC. =. 1.0 =ebeCr 


OP 72> 
SLACK TIME := START OF PERIOD + OP 2 STOF TIME2 - CLOCK; 
if SLACK TIME >= 0.0 then 
Gelay (SLACK TIME), 
else 
raise OP_2 TIMING ERROR; 
end if; 
delay (START OF PERIOD + 2.0 = CLOCK); 
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OP 3; 
SLACK TIME := START OF PERIOD + OP_3_STOP_TIME3 - CLOCK; 
if SLACK_TIME >= 0.0 then 
delay (SLACK_TIME) ; 
else 
raise OP_3 TIMING ERROR; 
end if; 
delay (START_OF PERIOD + 3.0 5= "@EOCK) ; 


OP 4; 
SLACK TIME := START OF PERIOD + OP_4 STOP_TIME4 ~ CLOCK; 
Peo uUACK TiIMs >— 0.0 then 
delay (SLACK_TIMBE); 
else 
raise OP_4 TIMING ERROR; 
end if; 
delay (START OF PERIOD i220) = CLOCK); 


OF 1; 
SLACK TIME := START OF PERIOD + OP_1 STOP TIME5 — CLOCK; 
if SLACK_TIME >= 0.0 then 
delay (SLACK TIME); 
else 
raise OP 1 TIMING ERROR; 
end if; 
delay (oTAR DT VOF SFERIOD 1 ko. 0 = CLOCK) : 
OP_2; 
SLACK TIME := START _OF PERIOD + OP_2 STOP _TIME6 - CLOCK; 
if SLACK TIME >= 0.0 then 
delay (SLACK_TIME) ; 
else 
raise OP_2 TIMING ERROR; 
end if; 
delay (START OF PERIOD + 14.0 ~— CLOCK); 
OP. 3; 
SLACK_TIME := START_OF_PERIOD + OP_3 STOP _TIME7 ~- CLOCK; 
Pe ouUAGK TIME -~= 0.0 then 
delay (SLACK TIME) ; 
else 
marge OP 3 TIMING ERROR; 
end if; 
delay (START_OF PERIOD + 15.0 - CLOCK) ; 
Or 4; 
SLACK_TIME := START OF PERIOD + OP_4 STOP TIME8 - CLOCK; 


if SLACK TIME >= 0.0 then 
delay (SLACK TIME) ; 

else 
raise OP_4 TIMING ERROR; 
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endas tt: 
delay (START OF PERIOD + 17.0 - CLOCK); 


OPeZ: 
SLACK TIME := START_OF_ PERIOD + OP_2 STOP_TIME9 - CLOCK; 
if SLACK TIME >= 0.0 then 
delay (SLACK TIME); 
else 
raise FOR 2 TIMING ERROR, 
end af; 
delay (START OF PERIOD +) 10. OSS ecLeCea. 


OP eS 
SLACK TIME := START OF PERIOD + OP_3 STOP _TIME10 - CLOCK; 
if SLACK TIME >= 0.0 then 
delay, (SiAGK. Tamm), 
else 
raise OP 3 TIMING ERROR; 
end if; 
delay (START OF PERIOD + 19,07 [3eroew 


OP 4; 
SLACK TIME := START OF PERIOD + OP 4 STOP TIME11 - CLOCK; 
ade SLACK TIME >= 0.0 then 

delay ( SUACK I IME) ; 


else 
taise OF@4 TIMING ERROR, 
end if; 
START OF PERIOD == START OF PEREOOR SEER GOnE 


delay (START OF SPERTOD = elock): 
exception 
when OP_ 4 TIMING ERROR => 
PUT LINE(“timing error from operator seem: 
START OF PE RECD Mia elocic. 
when OP 3 TIMING ERROR => 
PUT LINE ("timing error from Ccperator OPM i 
START OF (FERIOD = —scloe 
when OP 2 TIMING ERROR => 
PUT LINE(“timing error from operaeor ser m-ase 
START (Cr CPE RIOD (ac ocla, 
when OP _1 TIMING ERROR => 
PUT LINE ("timing error —Erom operators e maa. 
START OF -FEREOD “7— Cloc, 
end; 
end loop; 
end SCHEDULE; 


begin 


@ ok ake 
end STATIC SCHEDULE; 
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APPENDIX C. PREPROCESSOR and DECOMPOSER OUTPUTS 


ier reprocessor Output 


LINEAGE 

cl 

mead numbers 
sort numbers 
write numbers 
END LINEAGE 
eal 

LINK 

a 

read numbers 
0 

sort numbers 
LINK 

b 

sort numbers 
0 

write numbers 
peaa numbers 
MET 

10 

PERIOD 

20 

sort numbers 
MET 

2 

PERIOD 

20 

write numbers 
MET 

c 

PERIOD 

20 

LINEAGE 

read numbers 
ATOMIC 

END LINEAGE 
read numbers 
read numbers 
LINEAGE 

sort numbers 
ATOMIC 

END LINEAGE 


zy 


sort numbers 
sort numbers 
LINEAGE 

write numbers 
ATOMIC 

END LINEAGE 
write numbers 
write numbers 


2) Decomposer Output 


ATOMIC 

read numbers 
MET 

10 

PERIOD 

20 

ATOMLe 

SOrt numbers 
MET 

Z 

PERIOD 

20 

ATOMIC 

Write numbers 
MET 

Zz 

PERIOD 

20 

LINK 

a 

read numbers 
0 

sort numbers 
LINK 

b 

SOrt, numbers 
0 

write numbers 
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APPENDIX D. PROGRAM DOCUMENTATION 


1. STANDALONE MENU DRIVEN VERSION AS IMPLEMENTED IN THIS THESIS 


preprocessor - generates the text file used by decomposer 
(not implemented ) 
decomposer b.a - validates and decomposes output of preprocessor 
(not implemented yet) 
Secomposer s.a - validates and decomposes output of preprocessor 
(not implemented yet) 
driver.a - interface for standalone static scheduler 
e handler b.a - exception routines used by driver 
e handler s.a SecGen LOnerourtiacs USeCA by driver 
files.a - global types and declarations for all ss programs 
Pp b.a Bere BOCES SOT 
fe S.a - file processor 
gmephs b.a - generic type graph structure 
graphs s.a - generic type graph structure 
Mob b.a Smliarmonie block, builder 
hbb_s.a - harmonic block builder 
Seeneduler b.a SRObeidteLsesciecamler “KHscheduling algorithms) 
Bencauler s.a eeorpetacors Scheduler (scheduling algorithms) 
Bequence b.a - generic type list structure 
sequence s.a - generic type list structure 
Geereescheduler*® —- executable static scheduler 
meoort b.a = Lope Tagqiwcadl SOrter 
meoort S.a - topological sorter 


Seatere Scheduler is compiled by: 
Paine eoecde rer ceneduber >t *.a -O Static scheduler 
({ where *.a uses all files listed above which have a .a suffix ) 


Seeere, scheduler 1s executed by the command Tine equivalent 
eeae@re scheduler) (expects to read an input file "atomic.info") 


Dependencies: 
files.a is dependent upon: 
vstrings 
sequences 


graphs 


decomposer_b.a, decomposer s.a, e handler b.a, e handler s.a, 
fp_b.a, fp_s.a, hbb_b.a, hbb_s.a, scheduler b.a, scheduler s.a, 
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t sort b.a, t_sort_s.a are all dependent euped. 
files (files.a) 


deiver.a 1S dependence upen 

decomposer (decomposer _b.a, decomposer_ s.a) 
(atomic.info file is given to the system) 

exception_handler (e_handler_b.a, e handler s.a) 
file processor (fp_b.a, fp _s.a) 
harmonic block_builder (hbb_b.a, hbb_ s.a) 
operator scheduler (scheduler bi a,>) scheaute se 
topological sorter (t_sort_b.a, t_sort_s.a) 


since decomposer is not implemented yet, atomic.info file is given. 
File processor reads atomic.info 

File processor €réates nenecri toad 

Operator scheduler creates sc.a 


2. DOCUMENTATION FOR THE COMPLETE DESIGN AS IT WILL BE USED IN CAPS: 


decomposer b.a - validates and decomposes output of preprocessor 
(not implemented yet) 

decompose. Sea - validates and decomposes output of preprocessor 
(not implemented yet) 

driver.a - interface for standalone static scheduler 
enhandlerebia - exception routines used by driver 

e handler s.a - exception routines used by driver 

files.a - global types and declarations for all ss programs 
fp eb.a - file processor 

fp s.a - file processor 

graphs b.a - generic type graph structure 

graphs s.a - generic type graph structure 

hbb b.a - harmonic block buiiide: 

hbbes. 4 - harmonic block builder 

Nee! - script to compile static scheduler preprocess premacm 
Presss” - executable preprocessor 

pre ssa - kodiyacc specifications for preprocessor 
scheduler b.a - operators scheduler (scheduling algorithms) 
schedulers .a - operators scheduler (scheduling aloori ie 
sequence b.a - generic type list structure 

sequence s.a - generic type list structure 

static scheduler* - executable statvegseniedmc: 

i oeSGrt aD = topological, scrter 

CescCheo.a - topological sertexz 


The caps static scheduler consists of two executable modules. 
pre ss 1s compiled by: 
Keep reuss ko lp re isc 


pre ss 1s executed by the command linesequr ali. 
pre ss <filename> =o operat ome 
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static scheduler is compiled by: 
a.make static_scheduler -f *.a -o static scheduler 
( where *.a uses all files listed above which have a .a suffix ) 


static scheduler is executed by the command line equivalent 


Stacie scheduler 


Dependencies: 


(expects to read an input file “atomic.info") 


files.a is dependent upon: 


vstrings 
sequences 
graphs 


decomposer b.a, decomposer_s.a, e handler _b.a, e handler s.a, 
imeea, eees.d, hibb b.a, hbb s.a, scheduler b.a, scheduler s.a, 
PESO ueee tape moOht Saamalre alle dependent upon: 

Peles tes, a) 


driver.a is dependent upon 


decomposer 


(decomposer b’a, decomposer s.a) 


S2ecperon Nandler (e handler b.a, € handler s.a) 
file processor (fp b.a, fp_s.a) 
Barmonite block bUrlder —(hbb b.a, hbb s.a) 

fee abhor pscheduler (scheduler b-a, scheduler s.a) 
Bopomoglcal Sorter (t sort b.a, t= sort s.a) 


Pesos Creates operator.info 

decomposer reads operator.info and creates atomic.info 
PerenPprocessor reads atomic.info 

mmbem Processor #@reates mon crits.a 

Meerator scheduler creates ss.a 


oD | 


APPENDIX E. IMPLEMENTATION OF THE STATIC SCHEDULING ALGORIFH 





This appendix contains the entire implementation for the Static Scheduler. 


ame i a SS i a ee i a es ee ee 
SS ee Se Se SS Se ee ee ne ee ce ce ee ee ee ee ee ee ee ee ee ee ee ee en ee SS ee ee ee ee ee ee ee ee ee Oe 


-- SEQUENCES - this is a generic package used by the FILES and GRAPHS package 
== to generate Linked Lists. 

with FILES; use FILES; 

package OPERATOR_SCHEDULER is 


procedures, TEST DATA (Mibu liIor ; in DIGRAPH.V_LISTS. Liou 
HARMONIC BLOCK LENGTH : in INTEGER) ; 


procedure SCHEDULE INITIAL SET (PRECEDENCE LIST : in DIGRAPH.V LISTS iiom 


THE SCHEDULE_INPUTS : in out SCHEDULE_INPUTS_LIST.LIST; 
HARMONIC _BLOCK_LENGTH : in INTEGER; 
STOP TIME : in out INTEGER); 


procedure SCHEDULE REST OF BLOCK (PRECEDENCEDL cts. 20 DIGRAPH.V LISTS. LIS 


THE SCHEDULE INPUTS : in Out SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK LENGTH * in INTEGER: 
STOP 2 TAME : an INTEGER) ; 


procedure SCHEDULE WITH EARLIEST START (THE GRAPH : in DIGRAPH.GRAPH; 
AGENDA ; in out SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER) ; 


procedure SCHEDULE WITH EARLIEST DEADLINE (THE GRAPH : in DIGRAPH.GRAPH; 
AGENDA : in out SCHEDULE _INPUTS_LIST.L ia 
HARMONIC BLOCK LENGTH : in INTEGER); 


procedure CREATE STATIC SCHEDULE (THE GRAPH >: in DIGRAPH.GRAPH; 
THE SCHEDULE INPUTS > in SCHEDULE INPUTS _ LIST.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER) ; 


MISSED, DEADLINE <; excepeien, 
OVER TIME > exception; 
MISSED OPERATOR : exceptvon; 


end OPERATOR SCHEDULER; 
with UNCHECKED DEALLOCATION; 
package body SEQUENCES is 


procedure FREE is new UNCHECKED DEALLOCATION (NODE, LIST); 
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function NON _EMPTY(L : in LIST) return BOOLEAN is 


begin 
if L = null then 
return FALSE; 
else 
return TRUE; 
end if; 
end NON EMPTY; 


procedure NEXT (L io Oue sGIST) Ts 


begin 
if L /= null then 
oes NEAT; 
end if; 
end NEXT; 
function LOOK4 (X in. © LEM, oe THES) 
fit LrSot := L; 
begin 


while NON EMPTY(L1) loop 
if L1.ELEMENT = X then 
return Ll; 
end if; 
NEXT (L1) ; 
end loop; 
Beturn null; 
end LOOK4; 
procedure ADD (X in ITEM; L 

T : LIST := new NODE; 
begin 

T.ELEMENT := X; 

PeonNeAL := L; 


eunction SUBSEQUENCE (Ll alg) GUS ee is 
toe LIST :;= Ll; 
begin 
while NON EMPTY(L) loop 
if not MEMBER(VALUE(L), L2) then 
return FALSE; 
end if; 
NEXT (L) ; 
end loop; 
return TRUE; 
end SUBSEQUENCE; 


£unction EQUAL (L1 Pye use. LZ 
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return LIST is 


in out LIST) is 
-- ITEM IS ADDED TO THE HEAD OF THE LIST 


Pir bioh) return BOOLEAN 91S 


in LIST) return BOOLEAN is 


begin 
return (SUBSEQUENCE (L1, L2) and SUBSEQUENCE (LZ, L1)); 
end EQUAL; 


procedure EMPTY(L : out LIST) is 


begin 
L := null; 
end EMPTY; 


function MEMBER(X : in ITEM; L : in LIST) return BOOLEAN is 
begin 
1£ LOOK4(X, L) /= null then 
return, RUE, 
else 
return FALSE; 
end 1£; 
end MEMBER; 


procedure REMOVE(X : in ITEM; 1 2 in@oueehi sts 
CURR <: List == "i; 
PREV =] List null; 
TEMP: hist ®.— nw, 
begin 
while NON _EMPTY(CURR) loop 
if VALUE(CURR) = X then 
TEMP := CURR; 
NEXT (CURR) ; 
FREE (TEMP) ; 
if PREV /= null then 
PREV.NEXT := CURR; 
else 
L <= CURE; 
end “at > 


else 
PREV := CURR; 
NEXT (CURR) ; 
end. a2; 
end loop; 
end REMOVE; 


procedure LIST REVERSE(LI1 : in BIST; i2 Stngeue a eee 
tg ee dS Be rd 
begin 
EMPTY (L2); 
while NON EMPTY(L) loop 
ADD (VALUE (L), L2); 
NEXT (L) ; 
end loop; 
en¢ DIST LREVERSE, 


procedure DUPLICATE (L1 : in LIST; GZ) eineouee es bee 
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TEMP :; List; 


L ae Sia a ae 
begin 
EMPTY (L2) ; 


while NON_EMPTY(L) loop 
ADD (VALUE (L), TEMP); 
NEXT (L) ; 
end loop; 
LIST REVERSE (TEMP, be 
end DUPLICATE; 


BouncELOn VALUE (L : in LIST) 
begin 
ete NON EMPTY (L) then 
return L.ELEMENT; 
else 
raise BAD VALUE; 
end if; 
end VALUE; 


end SEQUENCES; 


return ITEM 


is 


SS SS SS SS SS SS SS Ss ee ee es a ee ee ee a a a ee oe ee ee ee ee ee oe ee ee a ee ee oe ee oe eS SSS SS LS— Le SoS TS 


-- GRAPHS - a generic package used by the FILES package to generate 
= Graph Structure. 


with SEQUENCES; 
with VSTRINGS; 


generic 
type VERTEX is private; 


package GRAPHS is 


package V_LISTS is new SEQUENCES (VERTEX) ; 
use VoUTcIc, 


package V_STRING is new VSTRINGS (80); 
use V_STRING; 


subtype DATA_STREAM is VSTRING; 
subtype MET is NATURAL; 


type LINK DATAS as 


record 
THE DATA STREAM : DATA STREAM; 
THE PIRST ORL ED. VUbIsts 21s, 
THE Gi Mee > MEP ee: 


THE SECOND Ob 1D > Vl EISTe wencu, 
end record; 


package E LISTS is new SEQUENCES (LINK DATA) ; 
use E LISTS; 


type GRAPH is 


record 
VERTICES =. Vo LISTS-L1sit; 
LINKS elt S Toe Eick, 


€nagerecord,; 
function EQUAL GRAPHS (Gl : in GRAPH; G2 : in GRAPH) return) BOOUEAN, 
procedure EMPTY (G : out GRAPH); 
function IS NODE(X : in VERTEX; G © GRAPH) returner ocree 


function PS ebINK «x ° an VERTEX: Y * 3p VEELES, 
G : in GPAPH) return BOOLEAN; 


procedure ADD(X : in VERTEX; G : in out GRAPH); 


procedure ADD(L : ain LINK DATA;) Gyiigou SG ae, 
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procedure REMOVE(X : in VERTEX; G : in out GRAPH); 
procedure REMOVE(X : in VERTEX; Y : in VERTEX; G : in out GRAPH); 
procedure SCAN NODES(G : in GRAPH; S : in out V_LISTS.LIST) ; 


procedure SCAN PARENTS(X : in VERTEX; G : in GRAPH; 
Sen Out Vo Mists. bisa); 


procedure SCAN CHILDREN(X : in VERTEX; G : in GRAPH; 
seem OuE V LiSTS bist); 


procedure DUPLICATE(G1 : in GRAPH; GZ : in out GRAPH); 
Pe@cedure T SORT(G : in GRAPH; S : in out V_LISTS.LIST); 
end GRAPHS; 
with UNCHECKED_DEALLOCATION; = 
package body GRAPHS is 
procedure FREE is new UNCHECKED DEALLOCATION(E LISTS.NODE, E LISTS.LIST); 


function EQUAL GRAPHS (G1 : in GRAPH; G2 : in GRAPH) return BOOLEAN is 


BiaetrotesUh obT (Gl : in GRAPH; G2 : in GRAPH) return BOOLEAN is 


Hie Vv Lists,.LIST += Gl.VERTICES; 
2: Bebloto. List = Gi.LINKs; 
begin 


if not SUBSEQUENCE (L1, G2.VERTICES) then 
return FALSE; 
end if; 
while NON EMPTY(L2) loop 
if not IS _LINK(VALUE (VALUE (L2).THE FIRST OP ID), 
VALUE(VALUBE(L2Z) THE SECOND OP ID), G2) then 
Beturn FALSE; 
end if; 
NEXT (G2): 
end loop; 
BebUunhn LRUE; 
end SUB SET; 
begin 
Se equal graphs 
meEurm (oUB SET(G1, G2) and SUB SET(G2, G1)); 
end EQUAL GRAPHS; 


procedure BEMPTY(G : out GRAPH) is 
begin 
BMPTY (G.VERTICES) ; 
EMPTY (G. LINKS) ; 
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end EMPTY; 


function IS_NODE(X : in, VERTEX; G : GRAPH) return BO@Ra ia. 
begin 
if LOOK4(X, G.VERTICES) /= null then 
Eetunm LRUB, 
else 
return FALSE; 
end if; 
end IS NODE; 





function IS_LINK(X : in VERTEX; Y : in VERTEX; G : in GRAPH) return =bO@imaam 
L : B LISTS.LIST := G.LINKS; 
begin 
while L /= null loop 
alg VALUE (VALUE (L) .THE FIRST OP Sip) = X and 
VALUE (VALUE (L) .THE SECOND OP_ID) = Y then 
return TRUE. 
end sf; 
L t= LL. NEAL; 
end loop; 
return FALSE; 
ence Lowi, 


procedure ADD(X : in VERTEX; G :; in@out GRAPH) Mee 
begin 

ADD (X, »G. VERTICES) ; 
end ADD; 


procedure ADD(L : in LINK DATA; G = am out GRAPH) is 
begin 
if LOOK4(L.THE FIRST OP ID.ELEMENT, G.VERTICES) /= null and 
LOOK4 (L.THE SECOND OP ID.ELEMENT, G.VERTICES) /= null then 


EDD (LG likens 


end (if; 
end ADD; 


procedure REMOVE(X : in VERTEX; G : in out GRAPH) is 
Seb Sheol, 
ie Veo oto mts t, 
PREV :; V bIlots.ntor = nulls; 
begin 
SCAN CHILDREN (X, G, S); 
whale NON EME Ty (2) lear 
REMOVE(X, VALUE (Ss) 2G). 
NEXT (S) ; 
end loop; 
SCAN PARENTS (X, GP, cS) 
while NON BEMPTY(S) loop 
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REMOVE (VALUE (S), X, G); 
NEXT (S) ; 
end loop; 
REMOVE (X, G.VERTICES) ; 
end REMOVE; 


procedure REMOVE (X : in VERTEX; Y : in VERTEX; G : in out GRAPH) is 
ie eokotoslLiStT := G. LINKS; 
PREY): EB GISTs. List := null; 
BEME : EV LISTS. LIsT <= Hires 
begin 
while NON EMPTY(L) loop 
if VALUE (VALUE (L).THE FIRST OP ID) = X and 
VALUE (VALUE (L).THE SECOND OP ID) = ¥ then 
TEMP := L; 
NEXT (L) ; 
FREE (TEMP) ; 
if PREV /= null then 
PREV.NEXT := L; 
else 
G.LINKS := L; 
end £2 
else 
PREV ;:= L; 
NEXT (L) ; 
ena if; 
end loop; 
end REMOVE; 


Peecedure SCAN NODES(G : in GRAPH; S : in out VeLIogs. WEST) is 
fee UislS.LIST := G.VERTICES; 
begin 
EMPTY (S) ; 
while NON EMPTY(L) loop 
ADD (VALUE (L), 5S); 
NEXT (L) ; 
end loop; 
end SCAN NODES; 


procedure SCAN PARENTS (X : in VERTEX; G : in GRAPH; 
Sean Out Vebtol Solis il) e213 


L :; E LISTS.LIST := G.LINKS; 
begin 

PrIpPTY (S) ; 

while NON_EMPTY(L) loop 
if VALUE (VALUE (L) .THE SECOND OP_ID) = X then 

ADD (VALUE (VALUE (L) .THE FIRST OP ID), S); 

end if; a in 
NEXT (L) ; 


end loop; 
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end SCAN PARENTS; 


procedure SCAN CHILDREN (X : in VERTEX; G : in GRAPH; 
S : in out V@EISTS See 
| Fo EB bistS-List s= G.LINKS; 
begin 
EMPTY (S) ; 
while NON _EMPTY(L) loop 
if VALUE (VALUE(L) .THE FIRST OP UID) er 
ADD (VALUE (VALUE (L) .THE SECOND _OP_ID), o) > 
end if- 
NEXT (L) ; 
end  loer, 
end SCAN CHILDREN; 


procedure DUPLICATE(G1l : in GRAPH; G2 : in out GRAPH) is 
begin 

DUPLICATE (G1 . VERTICES, G2.VERTIGES): 

DUPLICATE (G1.LINKS, G2.LINKS); 
end DUPLICATE; 


procedure T SORT(G : in GRAPH; S : in Gut) Vv hiSTo eet 
Gl : GRAPH; 
T, Lp Poo tied s brody, 
begin 
EMPTY (T); 
DUPLICATE (G, Gl); 
SCAN NODES(G1, L); 
while. NON EMPTY (LS oep 
SCAN PARENTS (VALUE (L), Gl, Pye 
if not NON EMPTY(P) then 
ADD (VALUE (L), T); 
REMOVE (VALUE (L), Gl); 
SCAN NODES(G1, L); 
else 
NEXT (L) ; 
end: 1 
end loop; 
SCAN NODES(G1, L); 
if NON EMPTY(L) then 


EMPTY (S) ; 
else 

LIST REVERSE (T, SR 
end if; 


end T SORT; 
end GRAPHS; 
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-- VSTRINGS - "vstrng_s.a, vstrng_b.a",; this is a generic package used within 
ae the Static Scheduler for variable length string types. 


with TEXT IO; use TEXT_IO; 
generic 


LAST : NATURAL; 
package VSTRINGS is 


subtype STRINDEX is NATURAL; 

FIRST : constant STRINDEX := STRINDEX’FIRST + 1; 
type VSTRING is private; 

NUL : constant VSTRING; 


-- Attributes of a VSTRING 


function LEN(FROM : VSTRING) return STRINDEX; 

function MAX(FROM : VSTRING) return STRINDEX; 

function STR(FROM : VSTRING) return STRING; 

monet nonm CHAR(FROM: VSTRING; POSITION : STRINDEX := FIRST) 
return CHARACTER; 


-- Comparisons 


function "<" (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN; 
function ">" (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN; 
function "<=" (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN; 
function ">=" (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN; 
function EQUAL (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN; 
function NOTEQUAL (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN; 


een put /Output 


meoceaure PUT(FILE : in Pee Pee, ITEM : in VSTRING); 
procedure PUT(ITEM : in VSTRING) ; 


procedure PUT tNE (FILE 3 Steg’ eI Ab S18 PLEM = an VSTRING) > 
eeceedure PUT LEINE(ITEM : in VSTRING) ; 


Peeeeaure GEI(FILE : in FILE TYPE; ITEM : out VSTRING; 
LENGTH : in STRINDEX := LAST); 
procedure GET(ITEM : out VSTRING; LENGTH : in STRINDEX := LAST); 


eeeecoaure GET RINE(FILE ; in FILE TYPE; ITEM : in out VSTRING); 
Beecequre GET LINE(ITEM : in out VSTRING) ; 


= hxtraction 


function SLICE(FROM: VSTRING; FRONT, BACK : STRINDEX) return VSTRING; 
PemeL ton SUBSTR(FROM: VSTRING; START, LENGTH: STRINDEX) return VSTRING;: 
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STRINDEX) 


function DELETE (FROM: VSTRING; FRONT, BACK : STRINDEX) return VSTRING; 
= ame ing 

function INSERT (TARGET: VSTRING; ITEM: VSTRING; 

POSITION: STRINDEX := FIRST) return VSTRING; 
function INSERT (TARGET: VSTRING; ITEM: STRING; 

POSITION: STRINDEX := FIRST) return VSTRING; 
function INSERT (TARGET: VSTRING; ITEM: CHARACTER; 

POSITION: STRINDEX := FIRST) return VSTRING; 
function APPEND (TARGET: VSTRING; ITEM: VSTRING; POSITION: STRINDEX) 

return VSTRING; 
function APPEND (TARGET: VSTRING; ITEM: STRING; POSITION: STRINDEX) 

return VSTRING; 
function APPEND (TARGET: VSTRING; ITEM: CHARACTER; POSITION: 

return VSTRING; 
function APPEND (TARGET: VSTRING; ITEM: VSTRING) return VSTRING; 
function APPEND (TARGET: VSTRING; ITEM: STRING) return VSTRING; 
function APPEND (TARGET: VSTRING; ITEM: CHARACTER) return VSTRING; 
function REPLACE (TARGET: VSTRING; ITEM: VSTRING; 

POSITION: STRINDEX := FIRST) return VSTRING; 
function REPLACE (TARGET: VSTRING; ITEM: STRING; 

POSITION: STRINDEX := FIRST) return VSTRING; 
function REPLACE (TARGET: VSTRING; ITEM: CHARACTER; 

POSITION: STRINDEX := FIRST) return VSTRING; 

-- Concatenation 

function "“&" (LEFT: VSTRING? RIGHT VSTRING) return VSTRING; 
function "&" (LEFT: VSTRING; RIGHT STRING) return VSTRING; 
function "&" (LEFT: VSTRING; RIGHT CHARACTER) return VSTRING; 
function “&™" (LEFT: STRING; RIGHT VSTRING) return VSTRING; 
function “&" (LEFT: CHARACTER; Ric. VSTRING) return VSTRING; 


-- Determine the position of a substring 


function 


function 


fincervoen 


Funct son 


Funct 1on 


INDEX (WHOLE: 
return 

INDEX (WHOLE 
return 

INDEX (WHOLE 
return 


RINDEX (WHOLE: 
Petite 
RINDEX (WHOLE 
return 


VSTRING; PART: VSTRING, » OCCURFENCE NATURAL := 
STRINDEX; 

VSTRING; PART STRING; OCCURRENCE NATURAL := 
STRINDEX; 

VSTRING; PART CHARACTER; OCCURRENGS NATURAL 
STRINDEX; 

VSTRING; PART: VSTRING; OCCURRENCE NATURAL := 
SL RINDES, 

VSTRING; PART STRING; OCCURRENCE NATURAL 
STRINDEX; 
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:= 1) 


function RINDEX (WHOLE : VSTRING; PART : CHARACTER; OCCURRENCE : NATURAL 
return STRINDEX; 


-~- Conversion from other associated types 


function VSTR(FROM : STRING) return VSTRING; 
function VSTR(FROM : CHARACTER) return VSTRING; 
function "+" (FROM : STRING) return VSTRING; 
function "+" (FROM : CHARACTER) return VSTRING; 


generic 
type FROM is private; 
type TO is private; 
with function STR(X : FROM) return STRING is <>; 
with function VSTR(Y : STRING) return TO is <>; 
function CONVERT(X : FROM) return TO; 


private 
type VSTRING is 
record 
LEN 2) SHERINDEX := STRINDEX’ FIRST; 
VALUE : STRING(FIRST .. LAST) := (others => ASCII.NUL); 


end record; 


NUL : constant VSTRING := (STRINDEX’ FIRST, (others => ASCII.NUL)); 
end VSTRINGS; 


package body VSTRINGS is 

== local declarations 

ioe CHAR ; Constant CHARACTER := ASCII.NUL; 

Peecedure FORMAT(THE STRING: in out VSTRING; 

OLDLEN : in STRINDEX:=LAST) is 
Gee etme estring with FILL CHAR to null out old values 
begin -- FORMAT (Local Procedure) 
THE STRING.VALUE (THE STRING.LEN + ta OLD UEN). 3 = 
(oOuherse>- Film CHAR), 

end FORMAT; 


-- bodies of visible operations 


function LEN(FROM : VSTRING) return STRINDEX is 


begin -- LEN 
return (FROM.LEN) ; 
end LEN; 


ao 


li 


1) 


function MAX(FROM : VSTRING) return STRINDEX is 


begin -- MAX 
return(LAST); 
end MAX; 


function STR(FROM : VSTRING) return STRING is 


begin -— ole 
return (FROM. VALUE (FIRST .. FROM.LEN) ); 
end SiR; 
function CHAR(FROM : VSTRING; POSITION : STRINDEX == FiksT) 


return CHARACTER is 


begin -- CHAR 
if POSITION net in FIRS! |]. PReM ee) 
then raise CONSTRAINT ERROR; 
end if; 
return (FROM. VALUE (POSITION) ) ; 
end CHAR; 


function "<" (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN was 


begin ae ew 
return (LEFT.VALUE < RIGHT.VALUE) ; 
end re is 


function ">" (LEFT: VSTRING; RIGHT: VSTRING) retWrn  sOcle a: s 


begin =e tas 
return (LEFIT.VALUEB > RIGHT. ALUBy, 
end a es 
function "<=" (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN is 
begin eT ed 
return (LEFT.VALUE <= RIGHT.VALUE); 
end "<="; 
function ">=" (LEFT: VSTRING; RIGHT: VSTRING) return BOOEEAN a. 
begin ———— i 
return(LEFT.VALUE >= RIGHT.VALUE) ; 
end ">="; 


function equal (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN is 
begin -- equal 
return (LEFT.VALUE = RIGHT. VALUE) ; 
end equal; 
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function notequal (LEFT: VSTRING; RIGHT: VSTRING) return BOOLEAN is 
begin -- notequal 
return (LEFT.VALUE /= RIGHT.VALUE) ; 
end notequal; 


procedure PUT(FILE : in FILE TYPE; ITEM : in VSTRING) is 


begin —— PUT 
PUT(FILE, ITEM.VALUE(FIRST .. ITEM.LEN)); 
end PUT; 


procedure PUT(ITEM : in VSTRING) is 


begin —-- FUL 
PUT (ITEM. VALUE (FIRST .. ITEM.LEN)); 
end PUT; 


beocedure PUT LINE(FILE : eel ThE lee, LtEM ey. an VSTRING) is 
Pegi a= Ul LENE 
BOT LINE (fF ELE, ITEM.VALUE (FIRST .. ITEM.LEN) ); 
ena PUT LINE; 


Peocedure PUT LINE(ITEM : in VSTRING) is 
begin -- PUT LINE 
PULeEINE (ITEM TVALUB(FIRST .. ITEM.LEN)); 
ence PUT LINE; 


procedure GET(FILE : in ee ar Ey iE Out VSTRING; 


LENGTH : in STRINDEX := LAST) is 
begin -- GET 
fee LENGTH not in FIRST... LAST 
Phenera1se CONSTRAINT ERROR; 
end if; 
ITEM := NUL; 
bor INDEX in FIRST .. LENGTH loop 
GET (FILE, ITEM.VALUE (INDEX) ); 
ITEM.LEN := INDEX; 
end loop; 
end GET; 
Procedure GET(ITEM : out VSTRING; LENGTH : in STRINDEX := LAST) is 
begin -- GET 
if LENGTH not in FIRST .. LAST 
then raise CONSTRAINT ERROR; 
end if; 7 
ITEM := NUL; 
por INDEX, tn FIRST .. LENGTH loop 
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GET (ITEM. VALUE (INDEX) ) ; 
ITEM.LEN := INDEX; 
end loop; 
end GET; 


proceduxme GET LINE (Files in FILE TYPE; Eel in out VSTRING) is 
OLDLEN : constant STRINDEX := ITEM.LEN; 
begin -- GET_LINE 
GET LINE(FILE, ITEM.VALUE, ITEMSEEN 
FORMAT (ITEM, OLDLEN) ; 
end GET LINE; 
procedure GEDPLINE (2 a=. in out VSITRING) as 
OLDLEN : constant STRINDEX := ITEM. LEN; 
beqin) ==) Gh awint 
GET LINE (ITEM.VALUE, PE oe Nig 


FORMAT (ITEM, OLDLEN) ; 
end GET LINE; 


function SLICE(FROM : VSTRING; FRONT, BACK : STRINDEX) return VSTRiNGeeee 


begin, =— SbBIcs 
1£ ((FRONT not in FIRST .2 FROMS@URN ens rca 
(BACK not in FIRST .. FROM.LEN)) and then FRONT <= BACK 
then raise CONSTRAINT ERROR; 
end if; 
return (Vstr (FROM.VALUE (FRONT .. BACK))); 
end SLICE; 


function SUBSTR(FROM : VSTRING; START, LENGTH : STRINDEX) return VSTRINGwaee 


begin -- SUBSTR 
if (START not in FIRST .. FROM.LEN) or else 
((START + LENGTH - 1 not in FIRSTS Pro rea) 


and then (LENGTH > Q)) 
then raise CONSTRAINT_ERROR; 
ena it: 


return (Vstr (FROM.VALUE (START .. START + LENGTH —1])o 
end SUBSTR; 


function DELETE (FROM : VSTRING; FRONT, BACK : STRINDEX) return VSTRING Gs 
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TEMP : VSTRING := FROM; 


begin -- DELETE 
wee ( (FRONT not InerlRsl .. FROM.LEN) or else 
(BACK not in FIRST .. FROM.LEN)) and then FRONT <= BACK 


then raise CONSTRAINT ERROR; 
end if; 


if FRONT > BACK then return(FROM); end if; 


begin -- INSERT 
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TEMP .LEN := FROM.LEN - (BACK - FRONT) - 1; 
TEMP .VALUE(FRONT .. TEMP.LEN) := FROM.VALUE (BACK + 1 FROM. LEN) ; 
FORMAT (TEMP, FROM.LEN) ; 
return (TEMP) ; 
end DELETE; 
BlUMCcELOn INSERT (TARGET: VSTRING; ITEM: VSTRING; 
POSITION : STRINDEX := FIRST) return VSTRING is 
TEMP : VSTRING; 
begin —-— INSERT 
we FOSITION not am FIRST .. TARGET.LEN 
then raise CONSTRAINT ERROR; 
end if; 
1£ TARGET.LEN + ITEM.LEN > LAST 
then raise CONSTRAINT ERROR; 
else TEMP.LEN := TARGET.LEN + ITEM. LEN; 
end if; 
TEMP .VALUE (FIRST .. POSITION - 1) := TARGET.VALUE (FIRST FOSITION 
TEMP .VALUE (POSITION .. (POSITION + ITEM.LEN - 1)) := 
Riera LUE (FIRST ~. ITEM. LEN) ; 
TEMP .VALUE ( (POSITION + ITEM.LEN) .. TEMP.LEN) := 
TARGET.VALUE (POSITION .. TARGET.LEN) ; 
return (TEMP); 
end INSERT; 
function INSERT(TARGET: VSTRING; ITEM: STRING; 
POs TIlON ewes DRINDEX := FIRST) return VSTRING is 
begin -- INSERT 
return INSERT (TARGET, VSTR(ITEM), POSITION) ; 
end INSERT; 
function INSERT(TARGET: VSTRING; ITEM: CHARACTER: 
POSITION ; STRINDEX := FIRST) return VSTRING is 


1S 


return INSERT(TARGET, VSTR(ITEM), POSITION) ; 
end INSERT; 


function APPEND (TARGET: VSTRING; ITEM: VSTRING; POSITION : STRINDEX) 
return VSTRING is 


TEMP : VSTRING; 


POS : STRINDEX := POSITION; 
begin -- APPEND 
if POSITION not in FIRST .. TARGET.LEN 
then raise CONSTRAINT ERROR; 
end if; 


1£ TARGET.LEN + ITEM.LEN > LAST 
then raise CONSTRAINT ERROR; 


else TEMP.LEN := TARGET.LEN + ITEM. LEN; 
end if; 
TEMP .VALUE (FIRST .. POS) := TARGET.VALUE (FIRST .. POS); 
TEMP .VALUE (POS + 1 .. (POS + ITEM.LEN)) := ITEM.VALUE (FIRST .. ITEM OLENGS 
TEMP .VALUE((POS + ITEM.LEN + 1) .. TEMP.LEN) := 
TARGET.VALUE (POS + 1 .. TARGET. LEN) ; 


return (TEMP); 
end APPEND; 


function APPEND (TARGET: VSTRING; ITEM: STRING; POSITION : STRINDEX) 
return VSTRING is 
begin -- APPEND 
return APPEND (TARGET, VSTR(ITEM), POSITION); 
end APPEND; 


function APPEND (TARGET: VSTRING; ITEM: CHARACTER; POSITION : STRINDEX) 
return VSTRING is 
begin -- APPEND 
return APPEND (TARGET, VSTR(ITEM), POSITION) ; 
end APPEND; 


function APPEND (TARGET: VSTRING; ITEM: VSTRING) return VSTRING is 
begin -- APPEND 
return (APPEND (TARGET, ITEM, TARGET.LEN) ); 
end APPEND; 


function APPEND (TARGET: VSTRING; ITEM: STRING) return VSTRING is 
begin -- APPEND 
return (APPEND (TARGET, VSTR(ITEM), TARGET.LEN)); 
end APPEND; 
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function APPEND (TARGET: VSTRING; ITEM: CHARACTER) return VSTRING is 


begin -- APPEND 
return (APPEND (TARGET, VSTR(ITEM), TARGET.LEN) ) ; 


end APPEND; 


function REPLACE (TARGET: VSTRING; ITEM: VSTRING; 


POSITION : STRINDEX := FIRST) return VSTRING is 
TEMP : VSTRING; 
begin -- REPLACE 
MEBeOsoLENON not in FIRST .. TARGET.LEN 
then raise CONSTRAINT ERROR; 


end if; 


if POSITION + ITEM.LEN - 1 <= TARGET.LEN 
then TEMP.LEN := TARGET.LEN; 
eesti POSLIION + ITEM. LEN — 1 > LAST 
then raise CONSTRAINT ERROR; 


else TEME. LEN 2= POSITION + ITEM.LEN - 1; 
end if; 
REMPe VALUE (FIRST 2. POSITION -—- 1) := TARGET.VALUE(FIRST .. POSITION - 1); 
TEMP. VALUE (POSITION .- (POSITION + ITEM.LEN - 1)) := 
ITEM.VALUE (FIRST .. ITEM.LEN) ; 
TEMP .VALUE ( (POSITION + ITEM.LEN) .. TEMP.LEN) := 
TARGET .VALUE ( (POSITION + ITEM.LEN) .. TARGET.LEN) ; 


return (TEMP) ; 
end REPLACE; 


function REPLACE (TARGET: VSTRING; ITEM: STRING; 
POSITION : STRINDEX := FIRST) return VSTRING is 


begin -- REPLACE 
return REPLACE (TARGET, VSTR(ITEM), POSITION) ; 


end REPLACE; 


function REPLACE (TARGET: VSTRING; ITEM: CHARACTER; 
POSITION : STRINDEX := FIRST) return VSTRING is 


begin -- REPLACE 
Beturn REPLACE (TARGET, VSTR(ITEM), POSITION) ; 


end REPLACE; 


function "&"(LEFT:VSTRING; RIGHT : VSTRING) return VSTRING is 
TEMP : VSTRING; 


Begin -- "&" 
if LEFT.LEN + RIGHT.LEN > LAST 
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then raise CONSTRAINT ERROR; 


else TEMP.LEN := LEFT.LEN + RIGHT.LEN; 
end if; 
TEMP .VALUE (FIRST .. TEMP.LEN) := LEFT.VALUE(FIRST ©) LER? bee 
RIGHT . VALUE (FIRST 2 RIGHT SEEN 
return (TEMP); 
end "£5 


function "&" (LEFT: VSTRING; RIGHT : STRING) return VSTRING is 


begin SS els 
return LEFT & VSTR(RIGHT) ; 
end "é&"> 


function "&" (LEFT: VSTRING; RIGHT : CHARACTER) return VSTRING is 


begin = LP a 
return LEFT & VSTR(RIGHI)- 
end by Ess 


function "&"(LEFT : STRING; RIGHT :; VSTRING) return oln fees 


begin == 7s" 
return VSTR(LEFT) & RIGHT; 
end “4° 


function "&"(LEFT : CHARACTER; RIGHT : VSTRING) return VSTRING is 


begin => 6. 
return VSTR(LEeT) Ss RIGHT 
end Le eas 
Function INDEX (WHOLE : VSTRING; PART : VSTRING; OCCURRENCE : NATURAL =a@ 
return STRINDEX as 
NOT FOUND : constant NATURE —a. 
INDEX : NATURAL := FIRST; 
COUNT : NATURAL := QO; 
begin ——- INDE 
if PART = NUL then return (NOT FOUND) |S =s0b) eden tea 
end if; 


while INDEX + PART.LEN - 1 <= WHOLE.LEN and then COUNT < OCCURRENCE Toas 
if WHOLE.VALUE (INDEX .. PART.LEN + INDEX —- 1) = 
PART.VALUE (1 .. PART.LEN) 
then COUNT <= COUNT as 
end. 1£2 
INDEXS< =. INDEX 4-1; 
end loop; 


1£ COUNT = OCCURRENCE 
then ereturn (INDE 2 
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else return (NOT FOUND) ; 


end if; 
end INDEX; 
Function INDEX (WHOLE : VSTRING; PART : STRING; OCCURRENCE : NATURAL := 1) 
return STRINDEX is 
begin -- Index 
return (Index (WHOLE, VSTR(PART), OCCURRENCE) ); 
end INDEX; 


il 


Function INDEX (WHOLE : VSTRING; PART : CHARACTER; OCCURRENCE : NATURAL 
return STRINDEX is 


begin -- Index 
return (Index (WHOLE, VSTR(PART), OCCURRENCE) ) ; 
end INDEX; 
function RINDEX (WHOLE: VSTRING; PART: VSTRING; OCCURRENCE:NATURAL := 1) 


return STRINDEX is 


Ner FOUND : constant NATURAL := 0; 
INDEX : INTEGER := WHOLE.LEN - (PART.LEN -1); 
COUNT : NATURAL := 0; 
begin -- RINDEX 
Peek NU then return (NOL FOUND); -- by definition 
endef ; 


while INDEX >= FIRST and then COUNT < OCCURRENCE loop 


if WHOLE.VALUE (INDEX .. PART.LEN + INDEX - 1) = 
PART.VALUE(1 .. PART.LEN) 
Enen., COUNT := COUNT + 1; 
end if; 
INDEX := INDEX - 1; 
end loop; 


if COUNT = OCCURRENCE 
then 
DPE ACOUNT =. 
then return(INDEX + 1); 
else return (NOT FOUND) ; 
end if; 
Sreceteturn (NOL FOUND); 
end if; 
end RINDEX; 


Function RINDEX (WHOLE : VSTRING; PART : STRING; OCCURRENCE : NATURAL := 1) 
return STRINDEX is 
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begin -- Rindex 
return (RINDEX (WHOLE, VSTR(PART), OCCURRENCE) ); 
end RINDEX; 


Function RINDEX (WHOLE : VSTRING; PART : CHARACTER; OCCURRENCE : NATURAL 
return STRINDEX is 


begin == Rindes: 
return (RINDEX (WHOLE, VSTR(PART), OCCURRENCE) ); 
end RINDEX; 


function VSTR(FROM : CHARACTER) return VSTRING is 
TEMP 2] VoLlRING- 


begin == Voi 
af “GAS 
then raise CONSTRAINT ERROR; 
else TEMP.LEN := 1; 
end eet, 


TEMP . VALUE (FIRST) “2="FROM, 


return (TEMP) ; 
end VSTR; 


function VSTR(FROM : STRING) return VSTRING is 
TEMP +: VSTRING- 
begin —-sore 


if FROM’ LENGTH > LAST 
then raise CONSTRATN I SERROE, 


else TEMP.LEN := FROM’ LENGTH; 
end if; 
TEMP .VALUE (FIRST .. FROM’ LENGTH) := FROM; 
return (TEMP); 
end VSTR; 


Function "+" (FROM : STRING) return VSTRiiecers 


begin ae eat! 
return (VSTR (FROM) ); 
end was 


Function "+" (FROM : CHARACTER) return VSTRING is 
begin 
return (VSTR (FROM) ); 
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end "+"; 


function CONVERT (X : FROM) return TO is 


begin -- CONVERT 
return (VSTR(STR(X))); 
end CONVERT; 
end VSTRINGS; 
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-- FILES - "files.a" has the global data type declerations used by alien 
airs other packages. 

with VSTRINGS; 

with SEQUENCES; 

with GRAPHS; 


package FILES is 


package VARSTRING is new VSTRINGS (80); 
use VARSTRING; 


subtype OPERATOR_ID is VSTRING; 
subtype VALUE is NATURAL; 
subtype MET is VALUE; 
subtype MRT is VALUE; 
subtype MCP is VALUE; 
subtype PERIOD is VALUE; 
subtype WITHIN is VALUE; 
subtype STARTS is VALUE; 
subtype STOPS is VALUE; 
subtype LOWERS is VALUE; 
subtype UPPERS is VALUE; 


Exception Operator : OPERATOR_ID; 
TEST VERTE VED]: “BOCESAN (a th Ur, 


type OPERATOR is 


EeCCcord 
THE OPERATOR ID : OPERATOR _ID; 
THE MET >: MET += 0- 
Jw) Josue ‘MET )2— 70; 
THE MCP SaMCP <= 0; 
THE PERIOD ; PERIOD =. 0; 
THE WITHIN ; WITHIN := 0; 


end record; 
package DIGRAPH is new GRAPHS (OPERATOR) ; 


type SCHEDULE INPUTS is 


record 
THE OPERATOR : OPERATOR ID; 
THE START ; STARTS oe) 
THEO TOR 7 SfOrS := 0; 
THE LOWER >: LOWERS := QO; 
[HE LUPE ER : UPPERS := 0; 


end record; 


package SCHEDULE INPUTS LIST is new SEQUENCES (SCHEDULE INPUTS) ; 
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Eypemor INFO 2s 


record 
NODE : OPERATOR; 
SUCCESSORS : DIGRAPH.V_ LISTS.LIST; 


PREDICESSORS : DIGRAPH.V_ LISTS.LIST; 
end record; 


package OP_INFO LIST is new SEQUENCES (OP INFO); 


ema FLLES; 
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-- FILE PROCESSOR - "fp_s.a, fp_b.a", includes the procedures which are 
-- validate the information in the ‘’atomic.info’ file and 
-- costruct the Graph Structure. 


mr ce ee eS eS eS eS ce ce cS SS SS SS SS SS SS SS SS SS SS SS SS SS SS cS SS GE eG ee ee 
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with FIUES; suse PF ilLBs, 
package FILE PROCESSOR is 


procedure SEPARATE DATA (THE GRAPH : in out DIGRAPH.GRAPH) ; 


procedure VALIDATE DATA (THE GRAPH : in out DIGRAPH.GRAPH) ; 


CRIT_OP LACKS MEd : €xCeption, 
MET NOT _LESS_THAN PERIOD >; exception; 
MET NOT LESS) TiahMEd ; exception; 
MCP NOT LESS_THAN_MRT ;: €Xcepticn, 
MCP LESS THAN MEY : exception, 
aban aL S_ GREATER THAN FINISH WITHIN ; CGxXCepEron, 
SPORADIC OP LACKS MCP ; exception, 
SPORADIC OP LACKS MRT >: exception; 
PERIOD LESS THAN FINISH WITHIN : C@XCepeton, 


end FILE PROCESSOR; 


with FET Geo, 
with FILES; use FILES; 


package body FILE PROCESSOR is 
procedure SEPARATE DATA (THE GRAPH : in out DIGRAPH.GRAPH) is 
-- This procedure reads the output file which has the link information with 
-- the Atomic operators and depending upon the keywords that are declared 
-- as constants separates the information in the file and stores it in the 
-- graph data structure, where GRAPH has the operator and link information 


-- in it. 


package VALUE IO is new TEXT _ 10. INTEGER IOV eLUEe 


MET >: constant VARSTRING.VSTRING := VARSTRING.VSTR ("MET") ; 
MRT >: constant VARSTRING.VSTRING := VARSTRING.VSTR("MRT") ; 
MEP >; constant VARSTRING.VSTRING := VARSTRING.VSTR ("MCP") ; 
PERIOD : constant VARSTRING.VSTRING := VARSTRING. VSTR( PERIOD 
WITHIN : constant VARSTRING.VSTRING := VARSTRING.VSTR ("WITHIN") ; 
LINK >; constant VARSTRING.VSTRING := VARSTRING.VSTR ("LINK") ; 
ATOMIC >; constant VARSTRING.VSTRING := VARSTRING.-VSTR( AloMie 
EMPTY : constant VARSTRING.VSTRING := VARSTRING. VSTR( EMPir oe 
Gurrenty vadiwe >: VALUE; 

New Stream ; DIGRAPH.DATA STREA 

New Word >: VARSTRING.VSTRING; 
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Cur Opt >: OPERATOR; 


Cur_Link : DIGRAPH.LINK_DATA; 
NON _CRITS ) TEXTIO.FILE TYPE; 

AG OUTFILE : teat elOebILE TYPE, 

INPUT : TEXT IO.FILE MODE := TEXT_IO.IN FILE; 
OUTPUT : TEXT 2O.FILE MODE := TEXT_IO.OUT_FILE; 
PRINT EDGES : DIGRAPH.E_LISTS.LIST; 

SO 2 ae al SP OTIGRARPH- VY GISOTS.LicsT, 

Ppl PZ >: OPERATOR; 

START NODE : OPERATOR; 

END NODE : OPERATOR; 


procedure INITIALIZE OPERATOR (OP : in out OPERATOR) is 
begin 


OP 


OE. 
OP. 
OF. 
OF. 


end; 


begin 


.THE MET := 
THE MRT 
THE MCP 
THE PERIOD 
THE WITHIN 


Il 
oO SC..@ Gic 


ii 


TEXT IO.OPEN (AG OUTFILE, INPUT, “atomic.info"); 
tere lOeCREATE(NON CRITS, OUTPUT, "non crits"); 
VARSTRING.GET LINE (AG OUTFILE, New Word); 


whil 


e not TEXT IO.END OF FILE(AG OUTFILE) loop 


if VARSTRING.EQUAL (New Word,LINK) then == keyword "LINK™ 


START NODE.THE OPERATOR ID := EMPTY; 
END NODE.THE OPERATOR ID := EMPTY; 
DIGRAPH.V_STRING.GET LINE(AG OUTFILE,New Stream) ; 
Cur Link.THE DATA STREAM := New Stream; 
VARSTRING.GET LINE(AG OUTFILE, New Word); 
Ll := THE GRAPH.VERTICES; 
while DIGRAPH.V_LISTS.NON EMPTY(L1) loop 
if VARSTRING. EQUAL (DIGRAPH.V_LISTS.VALUE(L1) .THE_OPERATOR_ID,New Word) 


then 
START NODE = DIGRAPH.V_ LISTS.VALUE (L1) ; 
exit; 
end if; 
DIGRAPH.V_ LISTS.NEXT(L1); 
end loop; 


VALUE IO.GET(AG OUTFILE, Current Value) ; 
TEXT IO.SKIP_LINE(AG OUTFILE) ; 


Gur Lank: THE LINK MET = Sur~enu value, 
VARSTRING.GET LINE (AGS OCUIESLE, New Word); 
Ll := THE GRAPH.VERTICES; 


while DIGRAPH.V_LISTS.NON EMPTY(L1) loop 
if VARSTRING.EQUAL (DIGRAPH.V_LISTS.VALUE (L1) . THE OPERATOR _ID,New Word) 
then 
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END NODE := DIGRAPH.V_ LISTS] VAGUE is), 
exit; 
end if; 
DIGRAPH.V_LISTS .NEXT (LI)e 
end loop; 
-- when either starting node or ending node of a link is EXTERNAL, 
-- the link information will not be added to the graph. Assuming 
-- that all external data coming in is ready at start time. 


if VARSTRING.NOTEQUAL (START NODE.THE OPERATOR_ID, EMPTY) and 
VARSTRING.NOTEQUAL (END _NODE.THE OPERATOR_ID, EMPTY) then 
DIGRAPH.V_LISTS.ADD (START NODE, Cur LinkeiHE FIRSBSOrP lie, 
DIGRAPH.V_LISTS.ADD(END_ NODE, Cur _Link.THE SECOND OP ID); 
DIGRAPH.ADD (Cur Link, THE GRAPH) ; 
end S21 i. 
VARSTRING.GET LINE ( AG OUTFILE, New Word) ; 


elsif VARSTRING.EQUAL (New Word,ATOMIC) then -~- keyword "ATOMIC" 
VARSTRING.GET LINE ( AG OUTFILE, New Word); 
Cur Opt.THE OPERATOR_ID := New Word; 


VARSTRING.GET LINE (AG OUTFILE, New Word); 
if (VARSTRING.EQUAL (New Word, ATOMIC)) or 
(VARSTRING.EQUAL (New Word, LINK)) or 
(TEXT IO.END OF FILE (AG OUTEIGGs then 
VARSTRING.PUT_LINE(NON CRITS, Cur _Opt.THE OPERATOR ID); 
else 
while VARSTRING.NOTEQUAL (New Word, ATOMIC) and 
VARSTRING. NOTEQUAL (New Word, LINK) and 
not TEXT IO.END OF FILE(AG OUTFILE) loop 


if VARSTRING.EQUAL (New Word,MET) then -- keyword "MET" 
VALUE _IO.GET(AG OUTFILE, Current Value) ; 
TEXT IO.SKIP LINE (AG OU@F IEE); 
Cur Opt.THE MET :— Currence auc, 


elsif VARSTRING.EQUAL (New Word,MRT) then -- keyword "MRT 
VALUE IO.GET(AG OUTE IDE @urreneng, aie 
TEXT IO.SKIP LINEX{AG OUtEIEE 
Cur Opt.THE MRI: — Cureem see, 


elsif VARSTRING.EQUAL (New Word,MCP) then -- keyword "M@ES 
VALUE IO.GET(AG OUTFILER@Urrentivalucs 
TEXT _IO.SKIP LINE (AGROUTE (aes 
Cur Opt.THE MCP — Cuvee new 2oue 


elsif VARSTRING.EQUAL (New Word,PERIOD) then -- keyword “PERIORs® 
VALUE _IO.GET(AG OUTFILE, Current Value) ; 
TEXT IO.SKIP LINE (AG OUTER TEE se, 
Cur Opt.THE PERIOD *=— Cura nt oe 


elsif VARSTRING.EQUAL (New Word,WITHIN) then -- keyword "WITHIN" 
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VALUE_IO.GET(AG OUTFILE, Current_Value); 

TEXT_IO.SKIP_LINE(AG OUTFILE) ; 

Cur Ope. THE WITHIN *= Current Value; 
Spgyel abse 


VARSTRING.GET_LINE(AG OUTFILE,New_ Word) ; 
end loop; 


DIGRAPH.ADD (Cur Opt, THE GRAPH); 
INITIALIZE OPERATOR (Cur _OPt); 
enamit > 
end if; 
ena. Loop; 
end SEPARATE DATA; 


peecedure VALIDATE DATA (THE GRAPH : in out DIGRAPH.GRAPH) is 
-- check the correctness of the operator and the link information before 
-- running the algorithms. If any check fails in this procedure, the 
—— program halts. 


TARGET :; DEGRAPH.VeLISTSaLiIstr, 

package VAL IO is new TEXT_IO.INTEGER IO(VALUE) ; 
begin 

TARGET := THE GRAPH.VERTICES; 

while DIGRAPH.V_LISTS.NON_EMPTY (TARGET) loop 


-- ensure that there is no operator without an MET. 
Sie DIGRAPH.V LISTS.VALUE (TARGET) .THE MET = 0 then 


Exception Operator := DIGRAPH.V_LISTS.VALUE (TARGET) .THE OPERATOR_ID; 
raise CRIT OP_LACKS_ MET; 
end if; 


if DIGRAPH.V_LISTS.VALUE (TARGET) .THE PERIOD = 0 then 
-- Check to ensure that MCP has a value for sporadic operators 
Pe eOTGRAPH. Ve LISTS. VALUE (TARGET) .THE MCP = 0 then 
Exception Operator := DIGRAPH.V_LISTS.VALUE (TARGET) . THE OPERATOR ID; 
taase SPORADIC OP LACKS MCP; 
elsif DIGRAPH.V_LISTS.VALUE (TARGET) .THE MET > 
DIGRAPH.V_LISTS.VALUE (TARGET) .THE MCP then 


xception Operator := DIGRAPH.V_LISTS.VALUE (TARGET) .THE OPERATOR_ID; 
raise MCP LESS THAN MET; 
end if; 


-~- Check to ensure that MRT has a value for sporadic operators 
af DIGRAPH.V_LISTS.VALUE (TARGET) .THE MRT = 0 then 


E-ceptton Operator oa SU EGRAPH. V Clots. VALUE (TARGET) .THE OPERATOR ID; 
raise SPORADIC OP LACKS MRT; 
end if; 


-- Check to ensure that the MRT is greater than the MET. 
sae DIGRAFH.V ListsS-VALUE (TARGET) .THE MET > 
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DIGRAPH.V_LISTS.VALUE (TARGET) .THE MRT then 


Exception_Operator := DIGRAPH.V_LISTS.VALUE (TARGET) .THE OPERATOR ID; 
raise MET NOT LESS THAN MRT; 
enGaae, 


-- Guarantees that an operator can fire at least once 
-- before a response expected. 
if DIGRAPH.V LISTS.VALUE (TARGET) .THE MCr 7 
DIGRAPH.V_ LISTS.VALUE (TARGET) .THE MRT then 
raise MCP NOT LESS THAN MRT; i. 
end if; 


else 
-- Check to ensure that the PERIOD is greater than the MET. 
if DIGRAPH.V LISTS. VALUE (TARGET) IHEUMET 
DIGRAPH.V_LISTS.VALUE (TARGET) .THE PERIOD Chie 


Exception Operator := DIGRAPH.V_LISTS.VALUE (TARGET) .THE OPERATOR ID; 
raise MET NOT_LESS THAN PERIOD; 
end if; 


-- Check to ensure that the FINISH WITHIN is grater than Cheshiee 
if DIGRAPH.V_LISTS.VALUE (TARGET) .THE WITHIN /= 0 then 
lg DIGRAPH.V_LISTS.VALUE (TARGET) .THE MET > 
DIGRAPH.V_LISTS.VALUE (TARGET) .THE WITHIN them 
Exception Operator := DIGRAPH.V_LISTS.VALUE (TARGET) .THE OPERATOR 
raise MET IS GREATER THAN FINISH WITHIN; 
elsif DIGRAPH.V_ LISTS. VALUE (TARGET) Tobe E in he ha: 
DIGRAPH.V_LISTS.VALUE (TARGET) .THE WITHIN then 


Exception Operator := DIGRAPH.V_LISTS.VALUE (TARGET) .THE OPERATOR ID; 
raise PERIOD LESS THAN FINISH WITHIN; q 
end if; 
end if; 
Cra aa 
DIGRAPH.V_LISTS.NEXT (TARGET) ; 
end loop, 


end VALIDATE DATA; 


end FILE PROCESSOR; 
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=— TOPOLOGICAL SORTER = “t sort _s.a, t_sort_b.a"; this package contains one 
procedure that does a topological sort of a linked list 


mm a crm ces crm cms cr ces rm cr ws cr cr crm cr mm cr ws cr cr cr cr cr cr cr cr cr rr rr rr we a 
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with FILES;use FILES; 
package TOPOLOGICAL SORTER is 


procedure TOPOLOGICAL SORT (G: in DIGRAPH.GRAPH; 
PRECEDENCE LIST: Pi our PIGKAEHGV (LISTS. LIST) ; 


end TOPOLOGICAL SORTER; 


with TEXT _IO; 
with FILES; use FILES; 


package body TOPOLOGICAL SORTER is 


-- This package determines the precedence order in which operators must 
-- execute in the final schedule. This information is determined 


=-- from the graph. 


procedure TOPOLOGICAL SORT (G: in DIGRAPH.GRAPH; 
PRECEDENCE LIST: in out DIGRAPH.V LISTS.LIST) is 


-- This procedure determines which operators in the graph must 
-- be executed before another. 


o> ; DIGRAPH.V_LISTS.LIST; 
begin 


DIGRAPH.T SORT(G, PRECEDENCE LIST) ; 
@) = PRECEDENCE LIST; 


end TOPOLOGICAL SORT; 


end TOPOLOGICAL SORTER; 
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-- HARMONIC _BLOCK_BUILDER - "hbb_s.a, hbb_b.a"; this package determines the 
-- periodic equivalents of the sporadic operators, 
-- and the length for the harmonic block. 


with FILES; use FILES; 
package HARMONIC BLOCK_BUILDER is 


procedure CALC PERIODIC _EQUIVALENTS (THE GRAPH : in out DIGRAPH.GRAPH) ; 


procedure FIND BASE BLOCK (PRECEDENCE LIST : in DIGRAPH.V_LISTS.LIST> 


BASE BLOCK > out VALUE ); 
procedure FIND BLOCK _LENGTH (PRECEDENCE LIST : in DIGRAPH.V_LISTS.LIST; 
HARMONIC BLOCK LENGTH >: out INTEGER ); 
NO BASE BLOCK >: exception; 
NO _OPERATOR_IN_LIST > exception; 


MET NOT LESS THAN PERIOD : exception; 


end HARMONIC BLOCK BUILDER; 
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with TEXT_IO; 
with FILES; use FILES; 
package body HARMONIC _BLOCK_BUILDER is 


procedure CALC PERIODIC EQUIVALENTS (THE_GRAPH : in out DIGRAPH.GRAPH) is 


V : DIGRAPH.V_LISTS.LIST := THE_GRAPH.VERTICES; 
E : DIGRAPH.E LISTS.LIST := THE GRAPH.LINKS; 
OPT : OPERATOR; 

NEW P : VALUE := 0; 


package val _ io is new TEXT _ IO, INTEGER, IO(value)| 
procedure VERIFY 1°40 :.in OPERATOR). 


-- Check to ensure that MRT has a value for sporadic operators 


begin 
if O.THE MET >= O.THE PERIOD then 
Exception Operator := O.THE _OPERATOR_ID; 
raise MET NOT LESS THAN PERIOD; 
end if; 


end VERIEY Es. 


procedure CALCULATE NEW PERIOD (O: in OPERATOR; NEW PERIOD: in out VALUE) is 
DIFFERENCE : VALUE; 
package VALUE IO is new TEXT IO.INTEGER_ IO(VALUE) ; 


begin 
DIFFERENCE := O. THRE MRT) — ©: CBE 
if DIFFERENCE < O- 70h Mer Stier 
NEW PERIOD := DIFFERENCE; 
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else 
NEW PERIOD := O.THE_MCP; 
end if; 
end CALCULATE _NEW_PERIOD; 


procedure MODIFY LINK_INFO (EDGES =: in Out DIGRAPH.E LISTS.LIST; 
TARGET : in OPERATOR) is 


P : DIGRAPH.E LISTS.LIST := EDGES; 
START _NODE : DIGRAPH.V_LISTS.LIST; 
END NODE : DIGRAPH.V_LISTS.LIST; 
Vel V2 : OPERATOR; 
begin 
while DIGRAPH.E LISTS.NON_EMPTY (P) loop 
START NODE := DIGRAPH.E LISTS.VALUE(P) .THE FIRST OP_ID; 
END NODE (= DIGRAPH.E LISTS.VALUE(P) .THE SECOND OP _ ID; 
Vol = DIGRAPH.V_ LISTS.VALUE (START NODE) ; 
V2 := DIGRAPH.V_LISTS.VALUE (END_NODE) ; 
et VARSTRING. EQUAL (V1.THE OPERATOR_ID, TARGET.THE OPERATOR_ID) then 
START NODE.ELEMENT.THE PERIOD := TARGET.THE PERIOD; 
elsif VARSTRING.EQUAL(V2.THE OPERATOR ID, TARGET.THE OPERATOR_ID) then 
END NODE.ELEMENT.THE PERIOD = TARGET.THE PERIOD; 
end if; 
DIGRAPH.E LISTS.NEXT (P); 
end loop; 


end MODIFY LINK INFO; 


begin -- main CALC PERIODIC EQUIVALENTS 
while DIGRAPH.V_LISTS.NON EMPTY(V) loop 
OPT := DIGRAPH.V_LISTS.VALUE (V) ; 


Zeon te rhit PERIOD = 0 then 
CALCULATE NEW PERIOD (OPT, NEW P); 
OF tebe eR LOD :— NEW FP; 
MERLE Ya (OPT) ; 
MODIFY LINK _INFO(E, OPT); 
Poe Fement tne period = snew p; 
E := THE GRAPH.LINKS; 

end if; 

DIGRAPH.V_ LISTS.NEXT(V); 

end loop; 
end CALC PERIODIC EQUIVALENTS; 


procedure FIND BASE BLOCK (PRECEDENCE LIST : in DIGRAPH.V_LISTS.LIST; 


BASE_BLOCK : out VALUE ) is 
P LIST : DIGRAPH.V_LISTS.LIST := PRECEDENCE LIST; 
DIVISOR : VALUE; 
ALTERNATE SEQUENCE : DIGRAPH.V_LISTS.LIST; 


BASE BLOCK SEQUENCE : DIGRAPH.V LISTS.LIST; 


function FIND MINIMUM PERIOD (PTL St ath DIGRAPH.V_LISTS.LIST) 
return VALUE is 
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V : DIGRAPH.V_ LISTS, LIST (= Pouueu, 
MIN PERIOD : VALUE := 0; 


begin 
if DIGRAPH.V_LISTS .NONVEMPTY (V) then 
MIN PERIOD := DIGRAPH.V_LISTS.VALUE (V) .THE PERIOD; 
DIGRAPH.V_LISTS.NEXT(V) ; 
while DIGRAPH.V_LISTS.NON_EMPTY (V) loop 
a a DIGRAPH.V_LISTS.VALUE(V) .THE PERIOD MIN PERIOD then 
MIN PERIOD := DIGRAPH.V_LISTS.VALUE(V) .THE PERIOD; 
end if; 
DIGRAPH.V_LISTS.NEXT (V) ; 
end loop; 
return MIN_ PERIOD; 
else 
raise NO _OPERATOR_IN_LIST; 
end if; 
end FIND MINIMUM PERIOD; 


Funct TON MODE DIVIDE (THE PERIOD : in VALUE) return VALUE is 
begin 

return (THE PERIOD mod DIVISOR); 
end MODE DIVIDE, 


procedure INITIAL PASS (P_ LIST : in out DIGRAPH.V LisTSeeio, 
BASE BLOCK SEQUENCE : in out DIGRAPH.V_LISTS.LIST; 
ALTERNATE SEQUENCE : in out DIGRAPH.V_LISTS.LIST) 


ORIG SEQUENCE : DIGRAPH.V_LISTS. Dist =e 07... 
OP FROM ORG SEQ : OPERATOR; 
REMAINDER : VALUE; 
THE PERIOD : VALUE; 
begin 
while DIGRAPH.V_LISTS.NON EMPTY (ORIG SEQUENCE) loop 
THE PERIOD := DIGRAPH.V_LISTS.VALUE (ORIG SEQUENCE) .THE PERIOD; 
REMAINDER := MODE DIVIDE (THE PERIOD) ; 
OP_ FROM ORG SEQ := DIGRAPH.V_LISTS.VALUE (ORIG SEQUENCE) ; 
if REMAINDER = O then 
DIGRAPH.V_LISTS.ADD (OP _FROM ORG SEQ, BASE BLOCK SEQUENCE) ; 


else 
DIGRAPH.V_LISTS.ADD (OP_FROM ORG SEQ, ALTERNATE SEQUENCE) ; 
end if; 
DIGRAPH.V_ LISTS .NEXT (ORIG SEQUENCE) ; 
end loop; 


end INITIAL PASS; 


begin -- main FIND BASE BLOCK 
DIVISOR := FIND MINIMUM PERIOD (P_LIST) ; 
INITIAL PASS(P_ LIST, BASE BLOCK SEQUENCE, ALTERNATE SEQUENCE) ; 
while DIGRAPH.V_LISTS.NON EMPTY (ALTERNATE SEQUENCE) loop 
if DIVISOR = 1 then 
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raise NO BASE BLOCK; 
-- exit and terminate the Static Scheduler 


else 
PEVISOR == PAIVISOR — 1; 
ALTERNATE SEQUENCE >= null; 
BASE BLOCK _ SEQUENCE := null; 
vita PASCO Cratos, BASE BLOCK SEQUENCE, ALTERNATE SEQUENCE) ; 
end if; 
ena loop; 
BASE BLOCK := DIVISOR; 


end FIND _ BASE BLOCK; 


procedure FIND BLOCK LENGTH (PRECEDENCE LIST ; in DIGRAPH.V_LISTS.LIST; 
HARMONIC BLOCK LENGTH : out INTEGER ) is 


ORIG SEQUENCE : DIGRAPH.V_LISTS.LIST >= PRECEDENCE LIST; 
NUMBER1 > VALUE; 
NUMBER2 >: VALUE; 
LCM : VALUE; 
GCD :; VALUE; 


TARGET NO : VALUE; 


function FIND GCD (NUMBER1 : in VALUE; NUMBERZ : in VALUE) return VALUE is 
NEW GCD  : VALUE; 
begin 
while GCD /= 0 loop 
if (NUMBER1 mod GCD = 0) and (NUMBER2 mod GCD = OQ) then 


NEW OGCD |:— GED, 
return NEW GCD; 
else 
GCD ===" GCD*" — 1; 
ena if; 
end loop; 


ena FIND GCD; 


Function FIND LCM (NUMBER1, NUMBER2 : VALUE) return VALUE is 
begin 
return(NUMBER1L * NUMBER2) / GCD; 
end FIND LCM; 


begin -- main FIND BLOCK LENGTH 
if DIGRAPH.V_LISTS.NON EMPTY (ORIG SEQUENCE) then 
NUMBER1 := DIGRAPH.V_LISTS.VALUE (ORIG SEQUENCE) .THE PERIOD; 


DIGRAPH.V_LISTS.NEXT (ORIG SEQUENCE) ; 
while DIGRAPH.V_LISTS.NON EMPTY (ORIG SEQUENCE) loop 


NUMBER2 := DIGRAPH.V_LISTS.VALUE (ORIG SEQUENCE) .THE PERIOD; 
if NUMBERZ2 > NUMBERI1 then 

GCD := NUMBERI; 

TARGET NO := NUMBER2; 
else 

GCD := NUMBERZ; 
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TARGET _NO := NUMBER1; 


end if; 
GCD := FIND _GCD(GCD, TARGET_NO) ; 
LCM := FIND LCM(NUMBERI, NUMBER2) ; 
NUMBERI1 := LCM; 
DIGRAPH.V_LISTS.NEXT (ORIG SEQUENCE) ; 
end loop; 
HARMONIC _BLOCK_LENGTH := LCM; 
else 
raise NO OPERATORS INGLE. a, 
ene see: 


end FIND BLOCK LENGTH; 


end HARMONIC _BLOCK_BUILDER; 
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-- OPERATOR SCHEDULER - “scheduler_s.a, scheduler _b.a"; contains all the 
scheduling algorithms implemented. It creates a static 


=— schedule into the ‘ss.a‘’ file, if possible. 
with FILES; use FILES; 
package OPERATOR_SCHEDULER is 
procedure TEST DATA (INPUT _LIST : in DIGRAPH.V_LISTS.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER) ; 
PEoceaure SCHEDULE INITIAL SET (PRECEDENCE LIST in DIGRAPH.V LISTS.LIST; 


THE SCHEDULE INPUTS in 
HARMONIC _BLOCK_LENGTH : in 


out SCHEDULE INPUTS LIST.LIST; 
INTEGER; 


SLOP DT UME in out INTEGER) ; 

procedure SCHEDULE REST OF BLOCK (PRECEDENCE LIST iPPiGkAPH.y LISTS .LIST; 
THE SCHEDULE INPUTS in out SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK_LENGTH : in INTEGER; 


STOP_TIME in INTEGER) ; 

procedure SCHEDULE WITH_EARLIEST START (THE GRAPH in DIGRAPH.GRAPH; 
AGENDA 5) alagy rey bh SCHEPULESINEUTS LIST. List; 
HARMONIC BLOCK LENGTH : in INTEGER) ; 

procedure SCHEDULE WITH EARLIEST DEADLINE (THE GRAPH in DIGRAPH.GRAPH; 


procedure 


AGENDA 
HARMONIC BLOCK LENGTH 


CREATE STATIC SCHEDULE (THE GRAPH 
THE SCHEDULE INPUTS 
HARMONIC BLOCK_LENGTH 


: in out SCHEDULE INPUTS LIST.LIST; 
in INTEGER); 


in DIGRAPH.GRAPH; 
in SCHEDULE INPUTS LIST.LIST; 
in INTEGER) ; 


MISSED DEADLINE : exception; 
OVER_TIME exception; 
MISSED OPERATOR exception; 


end OPERATOR SCHEDULER; 

wee PILES; use FILES; 

with TEXT I0; 

package body OPERATOR SCHEDULER is 
procedure TEST DATA (INPUT LIST 

HARMONIC _BLOCK_LENGTH 


in DIGRAPH.V_ LISTS.LIST; 
in INTEGER) is 
peececaure CALC TOTAL TIME (INPUT LIST 
HARMONIC BLOCK LENGTH 
Wes PiSkAnH.V LISTS List c= SNEUT List, 

TIMES FLOAT 00; 

OP_TIME FLOAT := 0.0; 


in DIGRAPH.V_LISTS.LIST; 


in INTEGER) is 
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TOTALS TIME. FLOATS O20; 
PER >: OPERATOR; 
BAD TOTAL TIME : exception; 


function CALC_NO OF PERIODS (HARMONIC BLOCK LENGTH : in INTEGER; 
THE PERIOD : in INTEGER) return FLOAT is 
begin 
return FLOAT (HARMONIC _BLOCK_LENGTH) / FLOAT (THE PERIOD) ; 
end CALC_NO_ OF PERIODS; 


function MULTIPLY BY MET (TIMES : in FLOAT; 
THE MET : in VALUE) return FLOAT is 
begin 
return TIMES ~*~ FLOAT (THEMED, 
end MULTIPLY BY MET; 


function ADD TO SUM (OP_TIME = in FLOAT) )returngete. te 
begin 

return TOTAL TIME + OP_TIME; 
end ADD TO_SUM; 


begin --main CALC TOTAL TIME 
while DIGRAPH.V_LISTS.NON_ EMPTY (V) loop 


PER := DIGRAPH.V_LISTS.VALUE(V) ; 

TIMES:= CALC_NO OF PERIODS (HARMONIC BLOCK LENGTH , PER.THE PERIOD); 
OP TIME := MULTIPLY BY MET (TIMES, DIGRAPH.V_LISTS.VALUE (V) .THE MET); 
TOTAL TIME := ADD TO SUM (OP TIME); 


ule TOTAL IaMET FLOAT (HARMONIC BLOCK LENGTH) then 
raise BAD _TOTAL TIME; 
else 
DIGRAPH.V_ LISTS.NEXT(V) ; 
end. sighe 
end loop; 
exception 
when BAD TOTAL TIME =~ 
TEST VERIFIED := FALSE; 
TEXT _IO.PUT("The total execution time of the operators excecdsiim 
TEXT IO.PUT_LINE("the HARMONIC BLOCK LENGTH") ; 
TEXT IO.NEW LINE; 
end CALC TOTAL TIME; 


procedure CALC HALF PERIODS (INPUT LIST :; in DIGRAPH-?V Lists (liste 


V +: DIGRAPHaY LISTS .LIsT == INEUiaaeT 
HALE RERLTOD S: Sf hOAT; 
FAIL HALF PERIOD |; Jexcepeion, 


function DIVIDE PERIOD BY 2 (THE PERIOD : in VALUE) return LOAD 
begin 

return FLOAT(THE PERIOD) / 2.0; 
end DIVIDE PERIOD BY 2; 
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begin --main CALC HALF_PERIODS; 
while DIGRAPH.V LISTS.NON EMPTY(V) loop 


HALF PERIOD := DIVIDE PERIOD _BY_2(DIGRAPH.V_LISTS.VALUE(V) .THE PERIOD) ; 
pina FLOAT (DIGRAPH.V_LISTS.VALUE(V) .THE MET) > HALF PERIOD then 
Exception Operator := DIGRAPH.V_LISTS.VALUE(V) .THE OPERATOR_ID; 
raise FAIL HALF PERIOD; 
else 
DIGRAPH.V_LISTS.NEXT(V) ; 
end if; 
end Sieop ; 
exception 
when FAIL HALF PERIOD => 
TEST VERIFIED := FALSE; 


TERT 1O.PUT ("The MET of Operator "); 

VARSTRING, PUlgM(Exception Operator) ; 

ie oelowr Ot Lt Nie Ss greater than half of its period.") ; 
end CALC HALF PERIODS; 


procedure CALC RATIO SUM (INPUT LIST : in DIGRAPH.V_LISTS.LIST) is 


V : DIGRAPH.V_LISTS.LIST := INPUT _LIST; 
Rani FLOAT; 
RATIO SUM : FLOAT := 0.0; 


THE MET : VALUE; 
THE PERIOD : VALUE; 
PATIO TOO BEG : exception; 


function DIVIDE MET BY PERIOD (THE MET : in VALUE; 
THE PERIOD : in VALUE) return FLOAT is 
begin 
return FLOAT(THE MET) / FLOAT(THE PERIOD) ; 
end DIVIDE MET BY PERIOD; 


function ADD _TO TIME (RATIO : in FLOAT) return FLOAT is 
begin 

Pemd2n RALEO SUM + RATIO; 
end ADD _ TO TIME; 


begin --main CALC_RATIO_SUM 
while DIGRAPH.V_LISTS.NON_ EMPTY (V) loop 


Pitt: = web lGRAPH Ve LISTS. VALUEQV) {THE MET; 
THE PERIOD := DIGRAPH.V_LISTS.VALUE(V) .THE PERIOD; 
Beto 7. — DIVEDE MET BiePERIOD (THE MET,THE PERIOD) ; 
RATIO SUM := ADD TO TIME (RATIO) ; 
PEGRAPH.V LISTS .NEXT (Vv); 

end loop; 


if RATIO SUM > 0.5 then 
raise RATIO TOO BIG; 
end if; 
exception 
when RATIO TOO BIG => 
TiS vane LEDS = FALSE; 
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TEXT_IO.PUT ("The total MET/PERIOD ratio sum of Operators Geese 
TEXT I0.PUT LINE ("greater selon 


end CALC RATIO SUM; 


begin --main TEST DATA 
CALC TOTAL TIME(TNEUT EIST, HARMONIC BLOCK LENGTH) ; 
CALC HALF PERIODS (INPUT LIST) ; 
CALC RATIO _SUM(INPUT_LIST) ; 

end TEST DATA; 


procedure VERIFY TIME LEFT (HARMONIC BLOCK LENGTH :; in INTEGER; 


begin 


STOP TIME : in ON@EGER) eas 


if STOP TIME > HARMONIC BLOCK LENGTH then 
raise OVER_TIME; 
--exit and terminate the Static Scheduler 
end if; 
end VERIFY_TIME LEFT; 


procedure CREATE INTERVAL (THE OPERATOR 


: in OPERATOR; 
INPUT : in out SCHEDULE INPUTS; 
OLD LOWER : an VALUE) =s 


LOWER BOUND : VALUE; 


function CALC LOWER BOUND return VALUE is 
begin 


aE 


LOWER_BOUND 


since CREATE INTERVAL function is used in both SCHEDULE INITIAL SET and 
SCHEDULE REST OF BLOCK (OLD LOWER /= 0) check is needed.In case of the 
operator is scheduled somewhere in its interval and (OLD LOWER /= 0}, 
this check guarantees that the periods will be consistent. 

(OLD LOWER /= 0) and (OLD_LOWER < INPUT.THE START) then 

OLD LOWER + THE OFERATOR, [HE PRR OD, 


else 


LOWER BOUND 


INPUT.THE START + THE OPERATOR. THE PERIG#: 


end if; 
return LOWER BOUND; 
end CALC LOWER BOUND; 


function CALC_UPPER_BOUND return VALUE is 
begin 
if THE OPERATOR.THE WITHIN = 0 then 


el 


return LOWER BOUND + THE OPERATOR.THE PERIOD - THE OPERATOR.THE MET; 


if the operator has a WITHIN constraint, the upper bound of the 
interval is reduced. 

se 

return LOWER BOUND + THE OPERATOR.THE WITHIN - THE OPERATOR.THE MET; 


end if; 
end CALC_UPPER_ BOUND; 


begin --main CREATE INTERVAL 
INPUT.THE LOWER := CALC _LOWER_BOUND; 
INPUT.THE UPPER := CALC_UPPER_BOUND; 
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end CREATE INTERVAL; 


a ei 


(PRECEDENCE LIST 


procedure SCHEDULE_INITIAL_SET 


in DIGRAPH.V_LISTS.LIST; 


THE SCHEDULE INPUTS 2m cut sCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER; 
STOPMEIME >: in out INTEGER) is 

vy: DEGRAPHEY LiISiSwwtsTt := PRECEDENCE LIST; 

START TIME INTEGER := 0; 

NEW INPUT SCHEDULE INPUTS; 

OLD_LOWER VALUE :=0; 

package INTEGERIO is new TEXT IO. INTEGER IO(INTEGER) ; 

use INTEGERIO; 

begin --SCEDULE_INITIAL SET 
while DIGRAPH.V_LISTS.NON_EMPTY(V) loop 
Hxcepuron Operator. — DIGRAPH Vv EilstS.VALUE(V) .THE” OPERATOR ID; 


NEW INPUT.THE OPERATOR := 
NEW INPUT.THE START := START_TIME; 
STOP TIME := 


VERIFY TIME LEFT (HARMONIC _BLOCK_LENGTH, 
NEW INPUT.THE STOP := STOP _TIME; 
SPakT TIME := STO: LPrEMr; 


DIGRAPH.V_LISTS.VALUE(V) .THE OPERATOR ID; 


START TIME + DIGRAPH.V_LISTS.VALUE (V) .THE MET; 


STOP TIME) ; 


PEON eVeLy Operator in SCHEDULE INETIAD SET, OLD LOWER is zero. So we 
-- always send zero value to CREATE INTERVAL. 

CREATE INTERVAL (DIGRAPH.V_LISTS.VALUE(V), NEW_INPUT, OLD LOWER) ; 
SCHEDULE INPUTS LIST.ADD (NEW_INPUT, THE SCHEDULE INPUTS) ; 


DIGRAPH.V LISTS.NEXT (V) ; 
end loop; 
end SCHEDULE INITIAL SET; 


-— ow eee ee ee ee es es es es ee ee ee ce eee ee ee ee ee ee ee ee ee ee ee ee ee ie 
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procedure SCHEDULE REST _OF_ BLOCK (PRECEDENCE LIST:in DIGRAPH.V_LISTS.LIST; 


THE SCHEDULE INPUTS 
HARMONIC BLOCK LENGTH 
STOP TIME 


V : DIGRAPH.V_LISTS.LIST := 
TEMP : SCHEDULE INPUTS LIST.LIST := 
V_LIST : DIGRAPH.V_LISTS.LIST; 

P : SCHEDULE INPUTS LIST.LIST; 

S : SCHEDULE_INPUTS LIST.LIST; 


START TIME : INTEGER := 0; 

TIME STOP INTEGER := STOP TIME; 
NEW INPUT SCHEDULE INPUTS; 

OLD _LOWER VALUE; 


an Out SCHEDULE _ INPUTS LIST.LIST; 
in INTEGER; 


in INTEGER) is 


PRECEDENCE LIST; 
THE SCHEDULE_INPUTS; 


package INTEGERIO is new TEXT_IO.INTEGER_IO(INTEGER) ; 


use INTEGERIO; 


begin 


DIGRAPH.V_LISTS.DUPLICATE (PRECEDENCE LIST, V_LIST); 
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SCHEDULE INPUTS_LIST.LIST_ REVERSE (THE SCHEDULE INPUTS, Pas 
loop 
while SCHEDULE INPUTS LIST.NON_EMPTY(P) loop 
if SCHEDULE INPUTS _LIST.VALUE(P) .THE LOWER < HARMONIC BLOCK LENGTH then 
NEW_INPUT.THE OPERATOR := DIGRAPH.V_LISTS.VALUE (V) .THE OPERATOR_ID; 
-- check if the operator can be scheduled in its interval 
if SCHEDULE _INPUTS_LIST.VALUE(P) .THE UPPER - TIME STOP 
>= DIGRAPH.V_LISTS.VALUE(V) .THE MET then 
alee SCHEDULE INPUTS _LIST.VALUE (P) .THE LOWER v= TIME Or then 


START TIME := SCHEDULE_INPUTS_LIST.VALUE (P) .THE LOWER; 
else 
START TiMs) (= TIMe orer. 
end if; 
NEW_INPUT.THE START := START_TIME; 
NEW _INPUT.THE STOP ;= STARTS TIME DIGRAPH.V_LISTS.VALUE(V) .THE MET; 
TIME STOP := NEW_INPUT.THE STOP; 
OLD LOWER := SCHEDULE _INPUTS_LIST.VALUE (P) .THE LOWER; 


CREATE INTERVAL (DIGRAPH.V_LISTS.VALUE (V), NEW _ INPUT, OLD LOWER) ; 
SCHEDULE INPUTS LIST.ADD(NEW INPUT, TEMP) ; 
SCHEDULE _INPUTS_LIST.ADD (NEW_INPUT, Sit 
Exception Operator := DIGRAPH.V_LISTS.VALUE(V) .THE OPERATOR ID; 
VERIFY TIME LEFT (HARMONIC BLOCK LENGTH, TIME STOP); 
DIGRAPH.V_LISTS.NEXT (V) ; 
SCHEDULE_INPUTS_LIST.NEXT(P) ; 
-- if the operator can not be scheduled in its interval raise the 
== exception 
else 
Exception Operator := DIGRAPH.V_LISTS.VALUE(V) .THE OPERATOR_ID; 
raise MISSED DEADLINE; 
end .1£; 
else 
DIGRAPH.V_LISTS.REMOVE 
(DIGRAPH.V_LISTS.VALUE(V), V_LIST) ; 
DIGRAPH.V_ LISTS.NEXT(V) ; 
SCHEDULE_INPUTS LIST.NEXT(P) ; 
end if; 
end loop; 
if SCHEDULE INPUTS LIST.NON EMPTY(S) then 
SCHEDULE INPUTS LIST.LIST REVERSE (S, P) ; 
SCHEDULE INPUTS List EMeai 
V <= V_ LIST; 
else 
exit; 
end sat: 
end loop; 
SCHEDULE INPUTS LIST.LIST_ REVERSE (TEMP, THE SCHEDULE INPUTS) ; 


end SCHEDULE REST OF BLOCK; 
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procedure BUILD OP INFO LIST(THE GRAPH : in DIGRAPH.GRAPH; 


| eps 


TinmerminNbOulIsT = an cout, OP"INFO LIST.LIST) is 
-- this procedure finds each operator’s successors and predicessors first 
-- and creates the OPERATOR_INFO_LIST. 
V : DIGRAPH.V_LISTS.LIST := THE_GRAPH.VERTICES; 
S : DIGRAPH.V_LISTS.LIST; 
P : DIGRAPH.V_LISTS.LIST; 
NEW NODE : OP_INFO; 


begin 
while DIGRAPH.V_LISTS.NON EMPTY(V) loop 
DIGRAPH.SCAN CHILDREN (DIGRAPH.V_LISTS.VALUE(V), THE GRAPH, S) ; 
DIGRAPH.SCAN PARENTS (DIGRAPH.V_LISTS.VALUE(V), THE GRAPH, P); 


NEW NODE.NODE := DIGRAPH.V_LISTS.VALUE (V) ; 
NEW _NODE.SUCCESSORS := S; 
NEW NODE.PREDICESSORS := P; 


OP_ INFO LIST.ADD(NEW_ NODE, THE OP_INFO_ LIST); 
DIGRAPH.V_LISTS.NEXT(V) ; 
end loop; 
end BUILD OP_INFO_LIST; 
procedure PROCESS EST _END_ NODE 
(MAY BE AVAILABLE: in out SCHEDULE INPUTS LIST.LIST; 
OPT : in OPERATOR) is 
Poet rdauster the OPERATOR record into SCHEDULE INFO record and adds that 
SeerneoOeene MAY AVATLABLE LIST for the Earliest Start™Scheduling Algorithm. 
-- Initially all the values are zero. 
NEW NODE : SCHEDULE INPUTS; 


begin 
NEW _NODE.THE OPERATOR := OPT.THE OPERATOR_ID; 
SCHEDULE INPUTS LIST.ADD (NEW NODE, MAY BE AVAILABLE) ; 
end PROCESS EST END NODE; 
procedure PROCESS EDL END NODE 
(MAY BE AVAILABLE: in out SCHEDULE INPUTS LIST.LIST; 
OPT : in OPERATOR) is 
==transfer the OPERATOR record into SCHEDULE INFO record and adds that 
=-into the MAY AVAILABLE LIST for the Earliest Deadline Scheduling Algorithm 
--Initially all the values are zero. 
NEW NODE : SCHEDULE INPUTS; 


begin 
NEW _NODE.THE OPERATOR o—eCr Tf . THE OPERATOR iD; 
NEW _NODE.THE LOWER := 0; -- we can omit this, because it’s already zero. 


if OPT.THE WITHIN /= 0 then 
NEW NODE.THE UPPER OPT.THE WITHIN; 
else 
NEW _NODE.THE UPPER 
end =f ; 
SCHEDULE INPUTS LIST.ADD (NEW NODE, MAY BE AVAILABLE) ; 
end PROCESS EDL END NODE; 


OPT.THE PERIOD; 
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function FIND OPERATOR(THE OP INFO_LIST : in OF UNROsti> 7 7. 
22, > in OPERATORs ED) 
return OP_INFO LIST. Cioeam 
-- finds the operator that we use currently to get the required information. 
TEMP ; OP_INFO®LIST.LIST >= THE OF VINE@ 2s 


-- assumed that it’s guaranteed to find an operator. 
begin 
while OP_INFO LIST.NON EMPTY(TEMP) loop 
if VARSTRING.EQUAL (OP_INFO_LIST.VALUE (TEMP) .NODE.THE OPERATOR _ID, ID) then 
return  2ZEMeE SS; 
end Le, 
OP_INFO_LIST.NEXT (TEMP) ; 
end loop; 
end FIND OPERATOR; 
function CHECK AGENDA(THE NODE wei OF TINE SG, 
AGENDA en SCHEDULE INPUTS LIST.LIST) 
return BOOLEAN is 
-- checks the AGENDA list to see if all the predicessors of the operator are 
—= ino tnere. 


PF : DIGRAPH.V LISTS.LIST := THE NODE.PREDICESSORS; 
A. « SCHEDULE _ INPUTS List List <= AGENrA, 
OK : BOOLEAN := FALSE; 

begin 


while DIGRAPH.V_LISTS.NON_EMPTY(P) loop 
while SCHEDULE INPUTS LIST.NON EMPTY(A) loop 
if VARSTRING.EQUAL (DIGRAPH.V_LISTS.VALUE(P) .THE OPERATOR ID, 
SCHEDULE INPUTS LIST.VALUE (A) .THE OPERATOR) then 


OK := TRUE; 
exit; 
end if; 
SCHEDULE INPUTS LIST.NEXT (A) ; 
end loop; 


if OK then 
DIGRAPH.V LISTS.NExa (ey, 


A := AGENDA; 
OK := FALSE; 
else 


-- if the pointer reached to the end of the AGENDA, it means the 
-- operator is not in AGENDA, if so return FALSE. 
return OK; 
end rit ; 
end loop; 
-- if the pointer reached to the end of the predicessor list, it means the 
-- operator is in AGENDA. 
OK := TRUE; 
Feturn OK; 
end CHECK AGENDA; 


procedure EST INSERT (TARGET etd oeCHEDULE  TNPUTS; 
MAY BE AVAILABLE : in out SCHEDULE_INPUTS LIST.LIST) is 
-- used to insert the operators into the MAY BE AVAILABLE list to schedule 
-- for the Earliest Start Scheduling Algorithm. 


Peeve.) SCHEDUEE INPUTS GIST. LIst 2= null; 
- : SCHEDULE INPUTS LIST.LIST := MAY BE AVAILABLE; 
begin 


if NOT(SCHEDULE INPUTS LIST.NON_EMPTY(T)) then 
-- when MAY BE AVAILABLE list is empty, add the operator immediately. 
SCHEDULE INPUTS _LIST.ADD (TARGET, MAY BE AVAILABLE) ; 

else 


-- in case the target operator’s EST is smaller than the first operator’s 

-- EST add the operator to the list immediately. 

aL3e TARGET.THE LOWER < SCHEDULE INPUTS _ LIST.VALUE(T) .THE LOWER then 
SCHEDULE INPUTS LIST.ADD (TARGET, MAY BE AVAILABLE) ; 


-- in case the operator with the same EST is in the list, do not insert, 
-- otherwise; insert the operator in its order. 
elsif NOT(SCHEDULE INPUTS LIST.MEMBER(TARGET, MAY BE AVAILABLE)) then 
while SCHEDULE INPUTS LIST.NON EMPTY(T) loop 
bine TARGET.THE LOWER > SCHEDULE INPUTS LIST.VALUE (T) .THE LOWER then 
PREV := T; 
SCHEDULE INPUTS LIST.NEXT(T) ; 
else 
exit; 
end) 1£; 
end loop; 
SCHEDULE INPUTS _LIST.ADD (TARGET, ae; 
at SCHEDULE INPUTS LIST.NON EMPTY (PREV) then 


PREV.NEXT := T; 
else 
MAY BE AVAILABLE := T; 
end if; 
end if-> 
end if; 


end Bol eINSERT; 


procedure EDL INSERT (TARGET : in SCHEDULE INPUTS; 
MAY BE AVAILABLE : in out SCHEDULE INPUTS LIST.LIST) is 


-- used to insert the operators into the MAY BE AVAILABLE list to schedule 
-- for the Earliest Deadline Scheduling Algorithm. 


mee ve. SCHEDULE INPUTS LIST.LIST := null; 
r : SCHEDULE_INPUTS_LIST.LIST := MAY BE AVAILABLE; 
begin 


aft NOT (SCHEDULE INPUTS LIST.NON EMPTY (T) ) then 
SCHEDULE INPUTS LIST.ADD (TARGET, MAY BE AVAILABLE); 
else 
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aloe TARGED THE UP rer i SCHEDULE INPUTS _LIST.VALUE(T) .THE UPPER then 
SCHEDULE INPUTS LIST.ADD(TARGET, MAY BE AVAILABLE) ; 
elsif NOT(SCHEDULE INPUTS LIST.MEMBER(TARGET, MAY BE AVAILABLE)) then 
while SCHEDULE INPUTS_LIST.NON_EMPTY (T) loop 
slg @ TARGET THE UP EER. SCHEDULE _INPUTS_LIST.VALUE(T) .THE UPPER then 
PREV *2=-1, 
SCHEDULE INPUTS LIST.NEXT(T) ; 
else 
exit; 
end if; 
end loop; 
SCHEDULE INPUTS _LIST.ADD (TARGET, rT) 
Lf SCHEDULE INPUTS_LIST.NON_EMPTY (PREV) then 


PREV.NBEXT := T; 
else 
MAY BE AVAILABLE =o Le 
end if; 
end at; 
end@ 2, 


end EDL INSERT; 
function OPERATOR IN TUIST (er faire in OPERATOR_ID; 
IN LIST : in SCHEDULE INPUTS LIST.LIST) 
return BOOLEAN is 
-- this is used to check if the operators in successors list are already in 
-- the complete MAY BE AVAILABLE list for both EST and EDI) alqorichmee 
TEMP : OPERATOR_ID; 


L ; SCHEDULE INPUTS LIST-LIST 2= IN Lisz,; 
begin 
while SCHEDULE _ INPUTS _LIST.NON_EMPTY(L) loop 
TEMP :;:= SCHEDULE INPUTS LIST.VALUE (L) .THE OPERATOR; 


if VARSTRING.EQUAL(TEMP, OPT ID) then 
return TRUE; 
else 
SCHEDULE INPUTS _ LIST.NEXT(L); 
end if; 
end loop; 
return FALSE; 
end OPERATOR_IN LIST; 
procedure EST INSERT SUCCESSORS OF _OPT 
(THE NODE > in OPL Ince, 
STORES fig > in VALUE; 
MAY BE AVAILABLE : in -Oue SCHEDULE INPUTS LIST.LIST) is 
-- inserts the successors of the selected operator into MAY BE AVATOEREaS 
-- list in their orders if they do net existence iesliacee 


S > DIGRAPH.V_LISTS.LIST := THE _NODE.SUCCESSORS; 
Ag >: OPERATOR; 
On ; OPERATOR := THE NODE.NODE,; 


TARGET : SCHEDULE INPUTS; 
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begin 
while DIGRAPH.V_LISTS.NON_EMPTY(S) loop 
T := DIGRAPH.V_LISTS.VALUE (S) ; 
if NOT(OPERATOR_IN LIST(T.THE_OPERATOR_ID, MAY_BE AVAILABLE)) then 
TARGET.THE OPERATOR := DIGRAPH.V_LISTS.VALUE (S) .THE_OPERATOR_ID; 
TARGET.THE LOWER := STOP_TIME; 
EST INSERT (TARGET, MAY _BE AVAILABLE) ; 
end 1; 
DIGRAPH.V_LISTS.NEXT(S) ; 
end loop; 
end EST INSERT_SUCCESSORS_OF_OPT; 


—_— = = ee ee ee ee wee oe ee ee ee ee ee oe ee oe oe oe ew om oe oe oe oe oe om oe er ee Se ee ee ee ee ee ee ee ee ee ee ee ee ee 


procedure EDL INSERT SUCCESSORS_OF_OPT 


(THE NODE : in OP_INFO; 
STOP_TIME : in VALUE; 
COMPLETE LIST : in out SCHEDULE INPUTS LIST.LIST; 


MAY BE AVAILABLE : in out SCHEDULE_INPUTS_LIST.LIST) is 
-- inserts the successors of the selected operator into MAY BE AVAILABLE 
-- list in their orders if they do not exist in the list. 


Ss ; DIGRAEH VY gbtsi>.- List: | THE NODE .SUCCESSORS; 
T : OPERATOR; 
OPT : OPERATOR := THE NODE.NODE; 
TARGET : SCHEDULE _INPUTS; 
begin 
while DIGRAPH.V_LISTS.NON EMPTY(S) loop 
T := DIGRAPH.V_LISTS.VALUE (S) ; 
if NOT (OPERATOR_IN LIST(T.THE OPERATOR_ID, COMPLETE LIST)) then 
TARGET.THE OPERATOR := T.THE_OPERATOR_ID; 
hance tatih LOWER ;=— STOF TIME; 


-- while we are adding the successors, the deadline of these operators 
=— are Calculated by adding either their finish within if exists, or 
me Der ocdstouthesstop tame of the (Kast operator. 

if T.THE WITHIN /= 0 then 


Pobcht (ib eUPEBRe:— STOP TIME + 1T-THE.WITHIN, 
else 
TARGET.THE UPPER := STOP TIME + T.THE PERIOD; 
end if; 
EDL INSERT (TARGET, MAY BE AVAILABLE) ; 
end if; 
DIGRAPH.V_LISTS.NEXT(S); 
end loop; 


end EDL_INSERT_SUCCESSORS_OF_OPT; 


— om ee ee ee ee we ee we oe = ee ee ie oe ee ee ow oe eo @ ee = eo oe @ ew ew = ow ew ew we ww we ce ow ew we ow we we ee w= c= oe oe 


meecedure PROCESS EST AGENDA(THE OP_INFO LIST: in OP_INFO LIST.LIST; 
MAY BE AVAILABLE: in out SCHEDULE INPUTS LIST.LIST; 
AGENDA Pt soOuLeSGHEDULEINEUTS LIST, LIST; 
HARMONIC BLOCK LENGTH : in INTEGER) is 


-- process the MAY BE AVILABLE list to produce AGENDA list which is used to 


mencreacle a senedulle for Earliest Start Scheduling Algorithm. 
ay > SCHEDULE INPUTS LIST.LIST := MAY BE AVAILABLE; 
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A : SCHEDULE _INPUTS_LIST.LIST; 


TEMP : OP INFO LisTsbast, 
TARGET : SCHEDULE _ INPUTS; 
NEW INPUT : SCHEDULE_INPUTS; 
THE NODE : OP_INFO; 

CONTINUE : BOOLEAN; 

STOP _TIME> = VAGUE E au. 

OPT : SCHEDULE INPUTS; 
EST >: INTEGER; 


package INTEGERIO is new TEXT_IO.INTEGER_IO(INTEGER) ; 


begin 
while SCHEDULE_INPUTS_LIST.VALUE (V) .THE_ LOWER < HARMONIC BLOCK LENGTH loop 
--no need to check if all the predicessors are in the AGENDA, because this 
-- is the first node and has no predicessors. 


OPT := SCHEDULE _INPUTS_LIST. VALUE (V) ; 
TEMP := FIND OPERATOR(THE OP INFO LIST, OPT.THE OPERATOR) ; 
THE NODE := OP_INFO LIST.VALUE (TEMP) ; 
af OFT. THE LOWERS Ue tnen 
CONTINUE := CHECK AGENDA (THE NODE, AGENDA) ; 
else 
CONTINUE := TRUE; 
end if; 


-- if the opt.is not an end node check if all its successors in AGENDA. 
-- if not, select the other operator and repeat the same procedure. 
while NOT CONTINUE loop 
SCHEDULE INPUTS LIST.NEXT(V) ; 
OPT := SCHEDULE INPUTS LIST.VALUE(V) ; 
TEMP := FIND OPERATOR(THE OP INFO LIST, OPT.THE OPERATOR) ; 
THE NODE := OP_INFO LIST.VALUE (TEMP) ; 
if OPT.THE LOWER > 0 then 
CONTINUE := CHECK AGENDA(THE NODE, AGENDA) ; 
else 
CONTINUE := TRUE; 
end: 15> 
end loop; 
TARGET := SCHEDULE INPUTS LIST.VALUE(V); 
SCHEDULE _INPUTS LIST.REMOVE (TARGET, MAY_BE AVAILABLE) ; 
Exception Operator := TARGET.THE OPERATOR; 
VERIFY_TIME LEFT (HARMONIC _BLOCK_LENGTH, STOP_TIME) ; 
if TARGET.THE LOWER > STOP_TIME then 


TARGET.THE START := TARGET.THE LOWER; --zero initially for the firstiem 
else 

TARGET.THE START := STOP TIME 
end if; 
STOP TIME := TARGET- Tht scolar aa THE NODE.NODE.THE MET; 
TARGET. THEY oLOer s= STOP eI IME, 
SCHEDULE INPUTS _ LIST.ADD (TARGET, AGENDA) ; 
EST j= TARGET. THE SSoAr ia, THE NODE.NODE.THE PERIOD; 
NEW INPUT.THE OPERATOR := TARGET. THE OPERATOR; 

128 


NEW INPUT.THE LOWER := EST; 
EST_INSERT (NEW_INPUT, MAY BE AVAILABLE) ; 
EST INSERT SUCCESSORS_OF_OPT(THE NODE, STOP_TIME, MAY BE AVAILABLE) ; 


V := MAY _BE AVAILABLE; 
end loop; 
A := AGENDA; 


SCHEDULE _INPUTS_LIST.LIST_REVERSE (A, AGENDA) ; 
end PROCESS _ EST AGENDA; 


<_—w oe ee ee ee ee es ees ee es a es a es a es es es es es es es es se ee ee ee ee 2 ee ee ee ee ee eo ee ee 2 2S ee 2 2 ee Se ee ee 2 ee 2 2 Se ew oe ee 


procedure PROCESS EDL AGENDA(THE OP INFO LIST: in OP_INFO LIST.LIST; 
COMPLETE LIST : in out SCHEDULE INPUTS _LIST.LIST; 
AGENDA : in out SCHEDULE INPUTS LIST.LIST; 
HARMONIC_BLOCK_LENGTH : in INTEGER) is 


-- process the MAY BE AVILABLE list to produce AGENDA list which is used to 
-- create a schedule for Earliest Deadline Scheduling Algorithm. 


V eeu bDULE INEUTS UES T LIST = COMPLETE LIST; 
TEMP  SGHEDULE INPUTS@eLoT- ULfST := COMPLETE UIST; 
A >: SCHEDULE INPUTS LIST.LIST; 

T qeon UNEOULIST “List; 

PREV och DULEM INPUTS LIST- LIST := null; 

TARGET > SCHEDULE INPUTS; 

NEW INPUT : SCHEDULE _INPUTS; 

THE NODE : OP_INFO; 

CONTINUE : BOOLEAN; 

SLOP TIME: VALUE := OF 

OFT : SCHEDULE INPUTS; 

Bor : INTEGER; 


package INTEGERIO is new TEXT_IO.INTEGER_ IO(INTEGER) ; 


begin 
while SCHEDULE INPUTS LIST.NON EMPTY (TEMP) loop 
if SCHEDULE_INPUTS_LIST.VALUE (TEMP) .THE LOWER < HARMONIC BLOCK LENGTH then 
-- no need to check if all the predicessors are in the AGENDA, because 
-- for the first node there is no predicessors. 


Ofte. — oCHEDULE INPUTS LIST. VALUE (V) ; 
Ak Poe OO? ERATOR (THE OP INFOwDist, OPT.THE OPERATOR) ; 
Boe eNODE SS. = OF SINFO LIST .VALUE(T) ; 


if OPT.THE LOWER > 0 then 


-- when the earliest start time of the operator is not zero, we need 
-- to check if all the predicessors of the operator are in AGENDA. No 
-- check otherwise. 


CONTINUE := CHECK AGENDA (THE NODE, AGENDA) ; 
else 

CONTINUE := TRUE; 
end if; 


-- if the opt.is not an end node check if all its successors in AGENDA. 
-- if not, select the other operator and repeat the same procedure. 
while NOT CONTINUE loop 
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SCHEDULE INPUTS LIST.NEXT(V) ; 


OPT := SCHEDULE INPUTS LIST.VALUE (V) ; 
T  := FIND OPERATOR(THE OP INFO LIST, OPT.THE OPERATOR) ; 
THE NODE := OP_INFO LIST.VALUE(T) ; 
ete OPT.THE LOWER > O then 
CONTINUE := CHECK AGENDA(THE NODE, AGENDA) ; 
else 
CONTINUE := TRUE; 
end “282 
end loop; 
TARGET := SCHEDULE INPUTS LIST. VALUE (V); 


SCHEDULE INPUTS _LIST.REMOVE (TARGET, TEMP) ; 
if SCHEDULE INPUTS LIST.NON EMPTY (EREV)) then 


PREV -NEAT®:— TEM, 
else 
COMPLETE LIST := TEMP; 
end tf; 
Exception Operator := TARGET .THE OPERATOR, 


VERIFY TIME LEFT (HARMONIC BLOCK _LENGTH, STOP_TIMB) ; 
if TARGET.THE LOWER > STOP TIME then 


TARGET. THE START = TARGET.THE LOWER; --zero initially for the £2estee 
else 
TARGET. THE START = ofOP finn, 
ends. ; 
STOR lire 7= TARGET, (HEsorears ot THE NODE.NODE.THE MET; 
TARGET . THE SiOr.— sore iy 
SCHEDULE INPUTS LIST.ADD (TARGET, AGENDA) ; 
EST := TARGET.THE START ot THE NODE.NODE.THE PERIOD; 
NEW_INPUT.THE OPERATOR = TARGET.THE OPERATOR; 
NEW INPUT.THE LOWER := Bol; 


if THE NODE.NODE.THE WITHIN /= 0 then 

NEW INPUT.THE UPPER EST + THE NODE.NODE.THE WITHIN; 
else 

NEW INPUT. THE UPPER 
endiane: 
EDL_INSERT(NEW_INPUT, TEMP) ; 


EST + THE NODE.NODE.THE PERIOD; 


-- this is to keep track of the COMPEETE Listes 

if SCHEDULE INPUTS LIST.NON EMPTY (PREV) then 
-- the pointer is pointing a record other than first one. 
PREV NEAL S- =) LEME. 

else 
-- the pointer is pointing the Eirst record Ggneciee oe 
COMPLETE LIST := TEMP; 

end if; 


EDL INSERT SUCCESSORS_OF_OPT(THE NODE, olTOP TIME, COMPLETE LIST, TEMP ) ; 
V := TEMP; 


-- this is to keep track of the COMPLETE S@HieT pounce 
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if SCHEDULE INPUTS LIST.NON_ EMPTY (PREV) then 
=—— the pointer is pointing a record other than first one. 
PREV.NEXT := TEMP; 

else 
== the pointer iS pointing the first record in the list. 
COMELETE biSi =. tEhMe, 

end if; 


erce 
PREV := TEMP; 
SCHEDULE INPUTS LIST.NEXT (TEMP) ; 
V := TEMP; 
end if; 
end loop; 
==—8lf any Operator 15 missed to be scheduled then exception MISSED OPERATOR 
=-- is raised. 
while SCHEDULE INPUTS LIST.NON EMPTY (TEMP) loop 
if not (OPERATOR_IN LIST(SCHEDULE INPUTS_LIST.VALUE (TEMP) .THE OPERATOR, 
AGENDA)) then 


Exception Operator := SCHEDULE INPUTS LIST.VALUE (TEMP) .THE OPERATOR; 
raise MISSED OPERATOR; 
endif; 
SCHEDULE INPUTS LIST.NEXT (TEMP) ; 
end loop; 
A := AGENDA; 


SCHEDULE INPUTS LIST.LIST REVERSE(A, AGENDA) ; 
end PROCESS EDL AGENDA; 
procedure SCHEDULE _WITH EARLIEST START(THE GRAPH : in DIGRAPH.GRAPH; 
AGENDA : in out SCHEDULE INPUTS LIST. LIST; 
HARMONIC BLOCK_LENGTH : in INTEGER) is 
—— used to find a feasible schedule for Earliest Start Scheduling Algorithm. 
FBO OP INFO LIST : OP_INFO LIST.LIST; 
MAY BE AVAILABLE : SCHEDULE INPUTS LIST.LIST; 
H BL : INTEGER := HARMONIC BLOCK LENGTH; 
if: OP INFO LIST.LIST; 
Eee OF INFO; 


begin 

BUILD _OP_INFO LIST(THE GRAPH, THE OP_INFO LIST); 
L := THE OP_INFO LIST; 
-- put all the end nodes, which has no predicessors, into MAY BE AVAILABLE 
-—- list is 
while OP_ INFO LIST.NON EMPTY(L) loop 

Pee or SINFO LIST. VALUE (L) ; 

if NOT(DIGRAPH.V_LISTS.NON EMPTY (P.PREDICESSORS)) then 

PROCESS EST END NODE (MAY BE AVAILABLE, P.NODE) ; 

end if; 

OP_INFO_LIST.NEXT(L) ; 
end loop; 
PROCESS_EST_AGENDA(THE OP_INFO_LIST, MAY _BE AVAILABLE, AGENDA, H _B L); 
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end SCHEDULE WITH EARLIEST START; 

procedure SCHEDULE WITH EARLIEST DEADLINE (THE GRAPH : in DIGRAPH.GRAPH; 
AGENDA : in out SCHEDULE INPUTS LIST.LIST; 
HARMONIC BLOCK _LENGTH : in INTEGER) is 


-- used to find a feasible schedule for Earliest Deadline Scheduling 
-- Algorithm 

THE OP INFO LIST : OP INFO LIST.LIST; 

MAY BE AVAILABLE : SCHEDULE_INPUTS LIST.LIST; 

HBL INTECEE SS HARMONIC BLOCK LENGTH; 

L : OPMINFO List Lit. 

P : OP ING, 


begin 
BUILD OP _INFO LIST(THE GRAPH, THE OP_INFO LIST); 
L := THE OP_INFO_ LIST; 
-- put all the end nodes, which has no predicessors, into MAY BE AVAILABLE 
Sa) ALTChe: 
while OP_INFO LIST.NON _EMPTY(L) loop 
P := OP INFO LIST.VALUE (L) ; 
if NOT(DIGRAPH.V_LISTS.NON EMPTY (P.PREDICESSORS)) then 
PROCESS EDL END NODE (MAY BE AVAILABLE, P .NODE) ; 
end if; 
OP INFO LIST.NEXT(L) ; 
end loop; 
PROCESS EDL AGENDA(THE OP INFO LIST, MAY BE AVAILABLE, AGENDA, H B L); 
end SCHEDULE WITH EARLIEST DEADLINE; 
procedure CREATE STATIC SCHEDULE (THE GRAPH >: in DIGRAPH.GRAPH; 
THE SCHEDULE INPUTS : in SCHEDULE _INPUTS_LIST.LIST; 
HARMONIC BLOCK LENGTH : in INTEGER) is 
-- creates the static schedule output and prints to "ss.a" file. 


V_LIST : DIGRAPH.V_LISTS.LIST := THE _GRAPH.VERTICES; 
S : SCHEDULE INPUTS LIST.LIST := THE SCHEDULE INPUTS; 
SCHEDULE : TEXT _IO.FILE TYPE; 

OUTPUT : TEXT IO.FILE MODE := TEXT_IO.OUT_ FILE; 
COUNTER : INTEGER := 1; 


package VALUE IO is new TEXT _IO.INTEGER_IO(VALUE) ; 
use VALUE 10; 

package INTEGERIO is new TEXT IO.INTEGER_IO (INTEGER) ; 
use INTEGERIO; 

package FLOATIO is new TEXT IO.FLOAT IO(FLOAT) ; 

use FLOATIO; 


begin 
TEXT _IO.CREATE (SCHEDULE, OUTPUT, "ss.a"); 
TEXT IO.PUT_LINE (SCHEDULE, "with TL; use) fis e 
TEXT _IO.PUT LINE(SCHEDULE, "with DS PACKAGE; use DS PACKAGE;"); 
TEXT IO.PUT (SCHEDULE, "with PRIORITY SDEF INIT 1e@nS =e, 
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TEXT IO.PUT_ LINE (SCHEDULE, "use PRIORITY_DEFINITIONS;") ; 
TEXT IO.PUT LINE(SCHEDULE, "with CALENDAR; use CALENDAR;") ; 
TEXT IO.PUT LINE(SCHEDULE, "with TEXT IO; use TEXT_IO;"); 
TEXT IO.PUT LINE(SCHEDULE, “procedure STATIC_SCHEDULE is"); 


while DIGRAPH.V_LISTS.NON_EMPTY (V_LIST) loop 
TEXT IO.SET COL(SCHEDULE, 2 
VARSTRING.PUT (SCHEDULE, DIGRAPH.V_LISTS.VALUE (V_LIST) .THE_OPERATOR_ID) ; 
TEXT _IO.PUT_LINE (SCHEDULE, "TIMING ERROR seexcept ion; ").: 
DIGRAPH.V_LISTS.NEXT(V_LIST) ; 

end loop; 


TEXT_IO.SET_COL (SCHEDULE, 3); 

TEXT _IO.PUT_LINE(SCHEDULE, "task SCHEDULE 2s) 

TEXT IO.SET_COL (SCHEDULE, Sit 

TEXT IO.PUT_LINE(SCHEDULE, "pragma peterneey s(>TATICTSCHEDULE PRIORITY) ;"™); 
TEXT IO.SET_COL(SCHEDULE, 3); 

TEXT IO.PUT_LINE (SCHEDULE, "end SCHEDULE; ") ; 

TEXT IO.NEW_LINE (SCHEDULE) ; 

TEXT IO.SET COL (SCHEDULE, SD iss 

TEXT IO.PUT_LINE(SCHEDULE, “task body SCHEDULE is"); 


MeoxT TO;PUT(SCHEDULE, " PERIOD =: constant <:= "); 
INTEGERIO.PUT (SCHEDULE, HARMONIC BLOCK LENGTH, 1); 
TEXT IO.PUT_LINE(SCHEDULE, ";"); 

See LHe SCHEDULE INPUTS; 


while SCHEDULE INPUTS LIST.NON _EMPTY(S) loop 
Text £O.,SET COL(SCHEDULE, 5); 
VARSTRING.PUT (SCHEDULE, SCHEDULE INPUTS LIST.VALUE (S) .THE OPERATOR) ; 
Biel elto.eUL( SCHEDULE, ™ STOP TIME") ; 
INTEGERIO.PUT (SCHEDULE, COUNTER, 1); 
BPO] PUICSCHEDULE, ™ ; constant := "); 
Pies tO PUT (SCHEDULE, FLOAT (SCHEDULE INPUTS LIST.VALUE (S) .THE STOP),3,1,0); 
TEXT TO.PUT LINE(SCHEDULE, ";"); 
SCHEDULE INPUTS LIST.NEXT(S) ; 
COUNTER :<= COUNTER + 1; 
end loop; 
TEXT IO.SET COL(SCHEDULE, 5); 
Genz etO.PUT LINE(SCHEDULE, “SLACK TIME ; duration;"); 
GextT TO.SET COL(SCHEDULE, 5); 
TEXT IO.PUT_ LINE (SCHEDULE, ToTART) OF SE ERIODP fetime ;= clock; ") ; 
@ExT TO-PUT LINE(SCHEDULE, “begin"); 
SExT TO.PUT LINE(SCHEDULE, ™ loop"); 
TEXT IO.SET_COL(SCHEDULE, 5); 
ier TO.PUT (SCHEDULE, "begin"); 


feo— THE SCHEDULE INPUTS; 

COUNTER := 1; 

while SCHEDULE INPUTS LIST.NON EMPTY(S) loop 
TEXT IO.SET COL(SCHEDULE, 7); 
VARSTRING. PUT (SCHEDULE, SCHEDULE INPUTS LIST.VALUE (S) .THE OPERATOR) ; 
pet lO; PUT EINE (SCHEDULE, “;"); 
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TEXT I10.SET COL (SGHEDULE aE 
TEXT _IO.PUT (SCHEDULE, "SLACK TIME °= START OP Ser sad Hs 
VARSTRING.PUT (SCHEDULE, SCHEDULE INPUTS _LIST.VALUE(S) .THE OPERATOR) ; 
TEXT IO.PUT (SCHEDULE, " STOP Tree; 
INTEGERIO. PUT (SCHEDULE, COUNTER, 1); 
TEXT IO.PUT LINE(SCHEDULE, " - CLOCK;"); 
TEXT _IO.SET_COL (SCHEDULE, foe 
TEXT _IO.PUT_LINE (SCHEDULE, oie SLACK TIME >= 0.0 then?) 
TEXT IO.SET_COL(SCHEDULE, 9); 
TEXT IO.PUT_LINE (SCHEDULE, "delay (SLACK TIME) ;"),; 
TEXT IO.SET_COL(SCHEDULE, 7); 
TEXT _IO.PUT_LINE (SCHEDULE, "else"); 
TEXT IO.SET_ COL (SCHEDULE, SN 
TEXT 10.PUT (SCHEDULE) Sratccu ae 
VARSTRING.PUT (SCHEDULE, SCHEDULE INPUTS LIST.VALUE(S) .THE OPERATOR) ; 
TEXT I0O.PUT_LINE (SCHEDULE, "_ TIMING ERROR; ") ; 
TEXT _I0O.SET_COL(SCHEDULE, 7) ; 
TEXT IO.PUT_LINE (SCHEDULE, Mend 1£7 "oe 
SCHEDULE INPUTS LIST.NEXT(S) ; 
if SCHEDULE _INPUTS_LIST.NON EMPTY(S) then 
-- pointer is pointing to the next record after this. 
TEXT I0.SET COL(SCHEDULE, 7); 
TEXT IO.PUT(SCHEDULE, "delay (START_OF PERIOD + "); 
FLOATIO. PUT (SCHEDULE, FLOAT (SCHEDULE INPUTS _LIST.VALUE(S) .THE START) ,3,1,0 
TEXT IO. PUT LINE (SCHEDULE, "= CLOCK) aa. 
TEXT _IO.NEW_ LINE (SCHEDULE) ; 
end if; 
COUNTER := COUNTER + 1; 





end loop; | 


TEXT 10. 
TEXTE Loe 


SET COL(SCHEDULE, 7); 
PUT LINE (SCHEDULE, "START OF PERIOD := START OF PERIOD + PERIOD;"); 


TEXT I0.SET_COL(SCHEDULE, 7) ; 

TEXT IO.PUT_LINE(SCHEDULE, "delay (START_OF_ PERIOD - clock);"); 
TEXT_IO.SET_COL(SCHEDULE, 7); 

TEXT_IO.PUT_LINE(SCHEDULE, "exception") ; 

V_LIST := THE GRAPH. VERTICES; 


while DIGRAPH.V_LISTS.NON EMPTY(V_LIST) loop 
TEXT IO.SET COL(SCHEDULE, 9); 
TEXT_IO.PUT(SCHEDULE, "when "); 


VARSTRING. PUT (SCHEDULE, DIGRAPH.V_LISTS.VALUE (V_LIST) . THE OPERATORS i Oa 
TEXT IO.PUT_ LINE (SCHEDULE, "_TIMING ERROR =>"); 

TEXT I0.SET_COL(SCHEDULE, 11); 

TEXT _IO.PUT(SCHEDULE, "PUT LINE(""timing error from operat oumaams 
VARSTRING. PUT (SCHEDULE, DIGRAPH.V_LISTS.VALUE (V_LIST) .THE OPERATOR ID); I 
TEXT IO.PUT LINE (SCHEDULE, be Did) 

TEXT _IO.SET COL (SCHEDULE, AL es ( 
TEXT_IO.PUT_LINE(SCHEDULE, "START_OF PERIOD := clock;"); 
DIGRAPH.V_LISTS.NEXT(V_LIST); 


end loop; 


134 


TEXT _IO.SET_ COL (SCHEDULE, wy: 

TEXT IO.PUT_LINE (SCHEDULE, We nCien os 

TEXT IO.SET_COL(SCHEDULE, 5); 
TEXT_IO.PUT_LINE(SCHEDULE, “end loop;"); 
tea TOsser COL(SCHEDULE, 3); 
TEXT_IO.PUT_LINE (SCHEDULE, Send “SCHEDULE; ™)-: 
TEXT IO.NEW_LINE (SCHEDULE) ; 

TEXT IO.PUT_LINE (SCHEDULE, "begin") ; 

TEXT _IO.SET_COL(SCHEDULE, 3); 

Tea LOsr Une oiNE (SCHEDULE, yr 1s ™)e 

TEXT IO.PUT LINE (SCHEDULE, "end SlATECeSCHEDULE; ™);, 


end CREATE STATIC SCHEDULE; 


end OPERATOR_SCHEDULER; 
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-- EXCEPTION HANDLER - "e handler _s.a, e handler bb"; Nandtes most ereene 
-- exceptions,and inform the user about the situation. 


with FILES; use FILES; = ss tt 
package EXCEPTION HANDLER is 
procedure CRIT O L MET(Exception Operator : in OPERATOR ID); 
procedure MET N L T PERIOD (Exception Operator > an OPERATOR os 
procedure MET N L T MRT(Exception Operator : in OPERATOR ID); 
procedure MCP_N L T MRT(Exception Operator : in OPERATOR ID); 
procedure MCP L T MET (Exception Operator > 2n OPER aleR er. 
procedure MET I G T FINISH WITHIN(Exception Operator : in OPERATOR_ID); 
procedure PERIOD L T FINISH WITHIN (ExceptromsGperaton Halal OPERATOR Sibi, 
procedure SPORADIC O L MCP (Exception Operator : in OPERATOR ID); 
procedure SPORADIC O L MRT(Exception Operator : in OPERATOR ID); 
procedure Sl Tb bap VALUE, 
procedure V_L BAD VALUE; 
procedure E L BAD VALUE; 
procedure NO Te TeLloer, 
procedure NO OP VINGEtor, 
end EXCEPTION HANDLER; 


with TEXT IO; 
with FILES; use FILES; 


package body EXCEPTION HANDLER is 


procedure CRIT O L MET(Exception Operator). an OrPnrn One 
begin 

TEXT 1O-PUL (“Critical sOperaroumus 

VARSTRING.PUT (Exception) Operator), 

TEXT 1I0O.PUT LINE (~ must@havevansME ws. 
end CR bios navn: 


procedure MET N L T PERIOD (Exception Operator : in OPERATOR aa 
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begin 
TEXT IO.PUT ("MET is greater than PERIOD in operator "); 
VARSTRING.PUT_LINE (Exception Operator) ; 

end MET N_L T PERIOD; 


procedure MET N L T MRT(Exception Operator : in OPERATOR_ID) is 
begin 
Pee Lose UT ("MET is greater than MRT in operator "); 
VARSTRING.PUT LINE (Exception_Operator) ; 
end MET N L T MRT; 


procedure MCP N L T MRT(Exception Operator : in OPERATOR _ID) is 
begin 
Tetelo.PUl ("MCP as greater than MRT in operator "); 
VARSTRING.PUT_LINE (Exception_Operator) ; 
end MCP_N L T MRT; 


Beocedure MCP L T MET(Exception Operator : in OPERATOR_ID) is 
begin 
Beer LO.PUT ("MCP is less than MET in operator "); 
VARSTRING.PUT_LINE (Exception Operator) ; 
euaeMcP Lb tT MET; 


procedure MET I G T FINISH WITHIN (Exception Operator : in OPERATOR_ID) is 
begin 
a wetOoseuL (Met 15° greater than FINISH WITHIN in operator "); 
VARSTRING.PUT LINE (Exception Operator) ; 
eeeeMeEr I G T FINISH WITHIN; 


Peececaure PERIOD i T FINISH WITHIN (Exception Operator : in OPERATOR ID) is 
begin 7 
ee etoee Ul TEERIOD 1s less than FINISH WITHIN in operator "); 
VARSTRING.PUT_ LINE (Exception Operator) ; 
end PERIOD L T FINISH WITHIN; 


Peocedure SPORADIC O L MCP (Exception Operator : in OPERATOR ID) is 
begin 7 

pee LOSE UT ("Sporadic Operator "); 

SerhothING {PUT (Exception Operator) ; 

fir eOeE UT LINE (" must have an MCP"); 
end SPORADIC O L MCP; 


Pmecedure SPORADIC O L MRI(Exception Operator : in OPERATOR ID) is 
begin 7 

fret SO.PUT ("Sporadic Operator "); 

WARSTRING.PUT (Exception Operator) ; 

feo 1O2PUT LINE (™ must have an MRT") ; 
end SPORADIC O L MRT; 


procedure S I L BAD VALUE is 
begin 
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TEXT IO.PUT ("You try to get a schedule input whereé™ your (porn tema 
TEXT IO.PUT_LINE ("is pointing 4 nuPire oor, 
end S I_L BAD VALUE; 


procedure V_L BAD VALUE is 

begin 
TEXT IO.PUT ("You try to get an operator where) yourspot ee 
TEXT IO.PUT LINE ("is pointing a null @recc dean, 

end V_L BAD VALUE; 


procedure E _L BAD VALUE is 

begin 
TEXT IO.PUT ("You try to get a link data where your perme pa 
TEXT IO.PUT LINE ("1s pointing sa null Jececrds ae, 

end E_L BAD VALUE; 


procedure NO B BLOCK is 
begin 

TEXT IO.PUT LINE ("There is no BASE BLOCK in thisesyctenma a 
end NO B BLOCK; 


procedure NO_OP IN EIST 2s 
begin 
TEXT LO] PUTSLINE ("There is no CRITICAL OPERATOR in this system."); 
end NO _OP_IN LIST; 


end EXCEPTION HANDLER; 
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-- STATIC SCHEDULER - "driver.a"; this is the driver program of the Menu driven 
standalone scheduler. 


pp ee ee 
—— eee eee ee 


mmeh TEXT 10; 

with FILES; use FILES; 

with FILE PROCESSOR; 

with EXCEPTION HANDLER; 

with TOPOLOGICAL_SORTER; 
with HARMONIC BLOCK BUILDER; 
with OPERATOR SCHEDULER; 


procedure STATIC SCHEDULER is 


THE GRAPH : DIGRAPH.GRAPH; 

PRECEDENCE LIST : DIGRAPH.V_LISTS.LIST; 

SCH INPUTS : SCHEDULE INPUTS _LIST.LIST; 
AGENDA : SCHEDULE INPUTS LIST.LIST; 
BASE BLOCK : INTEGER; 

H_ B_ LENGTH >: INTEGER; 

STOP_TIME : INTEGER := QO; 

CHOICE > INTEGER; 


procedure MAIN MENU is 
begin 
Bext LO.NEW PAGE, 
TEXT IO.NEW_LINE (4); 


TEXT IO.PUT LINE (" MAIN MENU") ; 

eer Tee Oye Wr epee ee em ee ee mine ")G 
TEXT_IO.NEW LINE (2); 

mxT TO.PUT LINE (" 1) THE HARMONIC BLOCK WITH PRECEDENCE") ; 

Text IO.PUT LINE (" CONSTRAINTS SCHEDULING ALGORITHM") ; 

TEXT IO.NEW_LINE; 

TEXT IO.PUT_LINE(" 2) THE EARLIEST START SCHEDULING ALGORITHM") ; 
TEXT_IO.NEW_LINE; 

TEXT ITO.PUT_LINE (" 3) THE EARLIEST DEADLINE SCHEDULING ALGORITHM") ; 
TEXT IO.NEW LINE; 

TEXT IO.PUT LINE (" An EXT Tee 


TEXT _IO.NEW_LINE(2); 
end MAIN MENU; 

begin 
FILE PROCESSOR.SEPARATE DATA (THE GRAPH) ; 
FILE PROCESSOR.VALIDATE DATA(THE GRAPH) ; 
HARMONIC BLOCK BUILDER.CALC PERIODIC EQUIVALENTS (THE GRAPH); 
BerOLOGICAL SORTER.TOPOLOGICAL SORT(THE GRAPH, PRECEDENCE LIST) ; 
HARMONIC BLOCK BUILDER.FIND BASE BLOCK (PRECEDENCE LIST, BASE BLOCK); 
HARMONIC BLOCK BUILDER.FIND BLOCK LENGTH (PRECEDENCE LIST,H_B LENGTH) ; 
OPERATOR SCHEDULER.TEST DATA(PRECEDENCE LIST, H_B LENGTH) ; 
Beat fO-PUT LINE ("passed CES laa Ae a, 
loop 


139 


e aceatell otha A Ee PS POET! SES ET = 


declare 
WRONG ENTRY : exception; 
begin 
MAIN MENU; 
if NOT(TEST VERIFIED) then 
TEXT IO.PUT ("Although a schedule may be possible, theres a. 
TEXT_IO.PUT_LINE ("guarantee that it will execute"); 
TEXT IO.PUT_LINE ("within the required taming conseuain cee, 
TEXT IO.NEW LINE; 
TEXTSIO. PUT LINE rs YOU STILL WANT TO RUN THE ALGORITHMS !"); 
end ye; 
TEXD LO. PUL Ce Enter your choice’ (1727/4) meaoe 
INTEGERIO.GET (CHOICE) ; 


case CHOICE is 
when l] => 
begin 
TEXT _IO.NEW_PAGE; 
OPERATOR SCHEDULER.SCHEDULE INITIAL SET 
(PRECEDENCE LIST,SCH_INPUTS,H B LENGTH, STOP TIME); 
TEXT _IO.PUT_LINE("passed SCHEDULE_INITIAL_SET") ; 
OPERATOR SCHEDULER.SCHEDULE_REST_OF_ BLOCK 
(PRECEDENCE LIST, SCH_INPUTS,H_B_ LENGTH, STOP_TIME) ; 
TEXT IO.PUT LINE("passed SCHEDULE_REST_OF_ BLOCK") ; 
OPERATOR SCHEDULER.CREATE STATIC_SCHEDULE (THE_GRAPH, SCH_INPUTS,H_B_ LENGTH) 
TEXT IO.PUT LINE{ passed CREATE STATIC SCHEDULE") ; 
TEXT IO.PUT LINE("A feasible schedule found, READ schedule.out FILE) Je 
SCHMINEV toy = nul; 
delay 3.0; 
exception 
when OPERATOR SCHEDULER.MISSED DEADLINE => 
TEXT TOGEUr ([ihe Operarers a, 
VARSTRING PUT (Excepuetons@perauen): 
TERE TOE Ue (“SMISSED" TTS DEADLINE. ):, 
delay 5.0; 
when OPERATOR _SCHEDULER.OVER TIME => 
TEXT 10,PUL ("fhe Cperatoms a 
VARSTRING.PUT (Exception Operatox) ; 
TEAT 10.PUT (8 Sis OVER TIME."); 
delay 5.0; 
end; 


when 2 => 
begin 
TEXT IO.NEW_ PAGE; 
text io.put_line("OK I AM IN EARLIEST §s Teh 
OPERATOR SCHEDULER.SCHEDULE WITH EARLIEST START 
(THE GRAPH, AGENDA, H_B_LENGTH); 
OPERATOR SCHEDULER.CREATE STATIC SCHEDULE (THE GRAPH, AGENDA,H B LENGTH); 
TEXT IO.PUT_LINE("A feasible schedule found, READ schedule.out FIUEOIS 
AGENDA := null; 
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delay 5.0; 
exception 

when OPERATOR SCHEDULER.MISSED DEADLINE => 
TEXT PO.EUL (Tne Operator "); 
VARSTRING.PUT (Exception Operator) ; 
TEXT _IO.PUT_LINE (" MISSED ITS DEADLINE.") ; 
delay 5.0; 

when OPERATOR SCHEDULER.OVER_ TIME => 
TEXT eTOeeer ("The Operator *) ; 
VARSTRING.PUT (Exception Operator) ; 


TEXT IO.PUT_ LINE ("ees OVERWTIME .™) ; 
delay 5.0; 
end; 
when 3 => 
begin 


TEXT IO.NEW PAGE; 
OPERATOR_SCHEDULER.SCHEDULE WITH_EARLIEST DEADLINE 
(THE GRAPH, AGENDA,H B LENGTH) ; 
OPERATOR _SCHEDULER.CREATE_ STATIC _SCHEDULE (THE _GRAPH,AGENDA,H B LENGTH) ; 
ieee Viet (oneeoaAstee Schedule found, READ schedule.out FILE..."); 
AGENDA := null; 
delay 3.0; 
exception 
when OPERATOR _SCHEDULER.MISSED DEADLINE => 
Tero. RUT (The Operamer "); 
VARSTRING.PUT (Exception Operator) ; 
Tio Sone Ur (" MISSED ITS DEADLINE."); 
delay 5.0; 
when OPERATOR SCHEDULER.OVER TIME => 
Tevet O,e tan che Operator”), 
VARSTRING.PUT (Exception Operator) ; 
TEXT IO.PUT LINE (" is OVER_TIMB.") ; 
delay 5.0; 
when STATIC SCHEDULER.MISSED OPERATOR => 
Tee oO Lure The Operator [ji 
VARSTRING. PUT (EacePpeTOoneOperaton),, 


Tie OLeLINES(] can not be schedulead@in this algorithm.") ; 
cE ieee LUIS LINE (“ There is@mo feasible solution.") ; 
delay 5.0; 

end; 


when 4 => exit; 


when others => raise WRONG ENTRY; 
end case; 


exception 
when WRONG ENTRY => 
Sotelo ne UT LEE THE) NUMBER ENTERED IS NOT IN MENU !"); 
Te Teer EUr UENE ("Please try again..."); 
delay 3.0; 
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end; 
end loop; 


exception 
when FILE PROCESSOR. 
EXCEPTION HANDLER. 


when FILE PROCESSOR. 
EXCEPTION HANDLER. 


when FILE PROCESSOR. 
-MET N_L T MRT(Exception Operator); 


EXCEPTION HANDLER 


when FILE PROCESSOR. 
-.MCP_N L T MRT(Exception Operator); 


EXCEPTION HANDLER 


when FILE PROCESSOR 


when FILE PROCESSOR 
EXCEPTION HANDLER 


when FILE PROCESSOR. 
EXCEPTION HANDLER. 


when FILE PROCESSOR. 
EXCEPTION HANDLER. 


when FILE PROCESSOR. 
»-SPORADIC O DL MRT (Except ionmmoperager)) 


EXCEPTION HANDLER 


CRIT_OP_LACKS_MET => 
CRIT _O L MET (Exception Operator) ; 


MET NOT LESS THAN PERIOD => 
MET N L T PERIODMExCeption Cperauam 


MET NOT LESS THAN MRT => 


MCP_NOT LESS THAN MRT => 


.MCP_LESS_ THAN MET => 
EXCEPTION HANDLER. 


MCP _L T METMExceptien Operager), 


.MET_ IS GREATER_THAN FINISH WITHIN => 
»MET I_G T FINISH WITHIN (Exception Operator) ; 


PERIOD LESS_THAN FINISH WITHIN== 
PERIOD L T FINISH WITHIN (Exception Operator 


SPORADIC _OP_LACKS MCP => 
SPORAD I Cm@miy MCP (Except 1onm@perat or), 


SPORADIC OP LACKS MRT => 


when SCHEDULE INPUTS LIST.BAD VALUE => 


EXCEPTION HANDLER. 


S I_L BAD VALUE; 


when DIGRAPH.V_LISTS.BAD_ VALUE => 


EXCEPTION HANDLER. 


V_L_BAD VALUE; 


when DIGRAPH.E LISTS.BAD VALUE => 


EXCEPTION HANDLER. 


E_L BAD VALUE; 


when HARMONIC BLOCK BUILDER.NO BASE BLOCK => 


EXCEPTION HANDLER. 


NO_B_ BLOCK; 


when HARMONIC BLOCK _BUILDER.NO OPERATOR_IN LIST => 


EXCEPTION HANDLER. 


NO OP ING@uirsa, 


when HARMONIC BLOCK BUILDER.MET NOT LESS THAN PERIOD => 
EXCEPTION HANDLER.MET N L T PERIOD(Exception Operator) ; 


end STATIC SCHEDULER; 
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APPENDIX F. DRIVER PROGRAM USED IN CAPS 


with TEXT_I0; 

with FILES; use FILES; 

with FILE PROCESSOR; 

with EXCEPTION HANDLER; 

with TOPOLOGICAL SORTER; 
with HARMONIC _BLOCK_BUILDER; 
with OPERATOR_SCHEDULER; 


procedure STATIC SCHEDULER is 


THE GRAPH ;: DIGRAPH. GRAPH; 
PRECEDENCE LIST : DIGRAPH.V_LISTS.LIST; 
SCH_INPUTS : SCHEDULE INPUTS LIST.LIST; 
AGENDA ; SCHEDULE INPUTS LIST.LIST; 
BASE BLOCK : INTEGER; 
H_B_ LENGTH : INTEGER; 
STOP TIME : INTEGER := 0; 

begin 


FILE PROCESSOR.SEPARATE DATA (THE_GRAPH) ; 
FILE PROCESSOR.VALIDATE DATA(THE_ GRAPH) ; 
TOPOLOGICAL SORTER.TOPOLOGICAL SORT (THE GRAPH, PRECEDENCE LIST); 
HARMONIC BLOCK BUILDER.CALC PERIODIC EQUIVALENTS (PRECEDENCE LIST); 
HARMONIC BLOCK BUILDER.FIND BASE BLOCK (PRECEDENCE LIST, BASE BLOCK) ; 
HARMONIC BLOCK BUILDER.FIND_BLOCK LENGTH (PRECEDENCE LIST,H B LENGTH); 
OPERATOR SCHEDULER.TEST DATA(PRECEDENCE LIST, H_B_ LENGTH) ; 
loop 
meeNOT(TEoL VERIFIED) then 
aboot pAlehecugh a schedule may be possible;™there is no "); 
ie eteorPUTTEINE (“guamantee that 1t will execute") ; 
Dre le PU TebINE (I wathin the required timing constraints."); 
TEXT IO.NEW_ LINE; 
ena if; 
begin 
OPERATOR _SCHEDULER.SCHEDULE_INITIAL SET 
(PRECEDENCE LIST,SCH_INPUTS,H_B_ LENGTH, STOP TIME) ; 
OPERATOR_SCHEDULER.SCHEDULE REST _OF_ BLOCK 
(PRECEDENCE LIST,SCH_INPUTS,H B LENGTH, STOP TIME) ; 
OPERATOR SCHEDULER.CREATE STATIC SCHEDULE 7 
(THE GRAPH, SCH_INPUTS,H B LENGTH) ; 
teens fteastble schedule found, ™) ; 
Tit LO]PULSLINE (“the Harmonic Block with Precedence Constraints "); 
TEXT le PUT EINE (™Seheduling Algorithm Used. "); 
SCH INPUTS := null; 
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exit; 
exception 
when OPERATOR SCHEDULER.MISSED DEADLINE => 
eb Ea 
when OPERATOR _SCHEDULER.OVER_ TIME => 
null; 
end; 


begin 
HARMONIC BLOCK BUILDER.CALC PERIODIC EQUIVALENTS (THE GRAPH. VERPR@aSys 
OPERATOR SCHEDULER.SCHEDULE WITH EARLIEST START 
(THE _GRAPH, AGENDA, H B_ LENGTH) ; 
OPERATOR _SCHEDULER.CREATE STATIC SCHEDULE (THE GRAPH, AGENDA,H B_ LENGTH); 
TEXT IO.PUT_LINE("A feasible schedule found, the” Earliest =Sta7 ae 
TEXT I0.PUT LINE ("Scheduling Algorithm Used. 
AGENDA := null; 
exit; 
exception 
when OPERATOR SCHEDULER.MISSED DEADLINE => 
null; 
when OPERATOR _SCHEDULER.OVER TIME => 
mul ik; 
end; 


begin 
OPERATOR_SCHEDULER. SCHEDULE WITH EARLIEST DEADLINE 
(THE GRAPH,AGENDA,H B_ LENGTH) ; 
OPERATOR SCHEDULER.CREATE STATIC SCHEDULE (THE GRAPH, AGENDA, H_B_ LENGTH) ; 
TEXT_IO.PUT_LINE("A feasible schedule found, the Earliest Deadiianeiie 
TEXT 10-PUT LINE (*seheduling Algorithm Udedse 
AGENDA := null; 
exit, 
exception 
when OPERATOR _SCHEDULER.MISSED DEADLINE => 
null; 
when OPERATOR_SCHEDULER.OVER_TIME 
nul, 
end; 
end loop; 


= 


exception 
when FILE PROCESSOR.CRIT_OP_LACKS_ MET => 
EXCEPTION HANDLER.CRIT O L MET(Exception Operator); 


when FILE PROCESSOR.MET NOT LESS THAN PERIOD => 
EXCEPTION HANDLER.MET N L T PERIOD (Exception Operator) ; 


when FILE PROCESSOR.MET NOT LESS THAN MRT => 
EXCEPTION HANDLER.MET N L T MRT(Exception Operator); 


when FILE PROCESSOR.MCP_NOT LESS THAN MRT => 
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EXCEPTION HANDLER.MCP_N L T MRT (Exception Operator) ; 


when FILE PROCESSOR.MCP_LESS_ THAN MET => 
EXCEPTION HANDLER.MCP_L T MET(Exception_ Operator) ; 


when FILE PROCESSOR.MET IS GREATER THAN FINISH WITHIN => 
EXCEPTION HANDLER.MET I G T FINISH WITHIN(Exception Operator) ; 


when FILE PROCESSOR.SPORADIC OP LACKS MCP => 
EXCEPTION HANDLER.SPORADIC O L MCP (Exception Operator) ; 


when FILE PROCESSOR.SPORADIC_OP LACKS MRT => 
EXCEPTION HANDLER.SPORADIC O L MRT(Exception Operator) ; 


when SCHEDULE INPUTS LIST.BAD VALUE => 
EXCEPTION HANDLER.S I _L BAD VALUE; 


when DIGRAPH.V_LISTS.BAD VALUE => 
EXCEPTION HANDLER.V_L BAD VALUE; 


when DIGRAPH.E LISTS.BAD VALUE => 
EXCEPTION HANDLER.E _L BAD VALUE; 


when HARMONIC BLOCK BUILDER.NO BASE BLOCK => 
EXCEPTION HANDLER.NO B BLOCK; 


when HARMONIC BLOCK BUILDER.NO OPERATOR IN LIST => 
EXCEPTION HANDLER.NO OP_IN LIST; 


when HARMONIC BLOCK BUILDER.MET NOT LESS THAN PERIOD => 
EXCEPTION HANDLER.MET N_L_T PERIOD (Exception Operator) ; 


end STATIC SCHEDULER; 
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